Range('') zusammenfassen

Computer: Software & Programmierung Visual Basic
#1

Hallo

Wie kann ich im folgendem Beispiel Die Range("") zusammen fassen so das ich die Befehle nicht für alle Range`s eingeben muß.

Private Sub Workbook_Open()
Range(„E8“).Select
Dim i As String
Dim p As String
Do While ActiveCell.Value „“
If ActiveCell.Value = „F“ Then
i = „5,5“
p = „14,5“
ElseIf ActiveCell.Value = „N“ Then
i = „13,5“
p = „22,5“
Else
MsgBox „Der Wert entspricht nicht F, oder N“, vbOKOnly, „Hinweis“
End If
ActiveCell.Offset(1, 0) = i
ActiveCell.Offset(2, 0) = p
ActiveCell.Offset(0, 1).Select
Loop
Range(„E15“).Select
Do While ActiveCell.Value „“
If ActiveCell.Value = „F“ Then
i = „5,5“
p = „14,5“
ElseIf ActiveCell.Value = „N“ Then
i = „13,5“
p = „22,5“
Else
MsgBox „Der Wert entspricht nicht F oder N“, vbOKOnly, „Hinweis“
End If
ActiveCell.Offset(1, 0) = i
ActiveCell.Offset(2, 0) = p
ActiveCell.Offset(0, 1).Select
Loop
Range(„E22“).Select
…
…
End Sub

Danke
MFG Gecko

#2

Hallo

Hi,

Private Sub Workbook\_Open()
 Const Anzahl\_Zellen=5
 Const Start\_Zeile=8
 Const Zeilen\_Abstand=7
 Const Spalte=5 'entspricht 'E'
 Dim x as Integer
 Dim i As String
 Dim p As String
 For x=0 to Anzahl\_Zellen - 1
 Range(Cells(Start\_Zeile + x \* Zeilen\_Abstand,Spalte)).Select
 Do While ActiveCell.Value ""
 If ActiveCell.Value = "F" Then
 i = "5,5"
 p = "14,5"
 ElseIf ActiveCell.Value = "N" Then
 i = "13,5"
 p = "22,5"
 Else
 MsgBox "Der Wert entspricht nicht F, oder N", vbOKOnly,"Hinweis"
 End If
 ActiveCell.Offset(1, 0) = i
 ActiveCell.Offset(2, 0) = p
 ActiveCell.Offset(0, 1).Select
 Loop
 Next
End Sub

Danke

Gruß.Timo

MFG Gecko

#3

Hallo

Hi,

Hallo
ich bekomme eine Fehlmeldung
‚‘ Laufzeitfehler ‚1004‘ ‚‘
‚‘ Die Methode’Range’für das Objekt’_Global’ ist fehlgeschlagen ‚‘

Was kann ich machen?

Private Sub Workbook_Open()
Const Anzahl_Zellen=5
Const Start_Zeile=8
Const Zeilen_Abstand=7
Const Spalte=5 'entspricht ‚E‘
Dim x as Integer
Dim i As String
Dim p As String
For x=0 to Anzahl_Zellen - 1
Range(Cells(Start_Zeile + x *
Zeilen_Abstand,Spalte)).Select
Do While ActiveCell.Value „“
If ActiveCell.Value = „F“ Then
i = „5,5“
p = „14,5“
ElseIf ActiveCell.Value = „N“ Then
i = „13,5“
p = „22,5“
Else
MsgBox „Der Wert entspricht nicht F, oder N“,
vbOKOnly,„Hinweis“
End If
ActiveCell.Offset(1, 0) = i
ActiveCell.Offset(2, 0) = p
ActiveCell.Offset(0, 1).Select
Loop
Next
End Sub

Danke

Gruß.Timo

MFG Gecko

#4

Hallo,

 Private Sub Workbook\_Open()
 Const intAnzahl\_Zellen = 5
 Const intStart\_Zeile = 8
 Const intZeilen\_Abstand = 7
 Const strSpalte = "E"
 Dim intX As Integer
 Dim strI As String
 Dim strP As String
 For intX = 0 To intAnzahl\_Zellen - 1
 Range(strSpalte & intStart\_Zeile + intX \* intZeilen\_Abstand).Select
 Do While ActiveCell.Value ""
 If ActiveCell.Value = "F" Then
 strI = "5,5"
 strP = "14,5"
 ElseIf ActiveCell.Value = "N" Then
 strI = "13,5"
 strP = "22,5"
 Else
 MsgBox "Der Wert entspricht nicht F, oder N", vbOKOnly, "Hinweis"
 End If
 ActiveCell.Offset(1, 0) = strI
 ActiveCell.Offset(2, 0) = strP
 ActiveCell.Offset(0, 1).Select
 Loop
 Next
 End Sub

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hallo,
Danke für eure Hilfe

MFG Gecko