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
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
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
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]