VBA - Schleife funktioniert nicht ?
17.11.2005 11:12:06
Thomas
Ich habe zwei For-Next-Schleifen, die bei verschiedenen Bedingungen gestartet werden. Allerdings funktioniert nur die erste. Ändere ich die Variable i in der zweiten Schleife in j, dann funktioniert es. Was mach ich falsch?
Dim i As Long
If Range("E6").Value = "T" Then
For i = 0 To 26
Range(Cells(6, 5 + i * 7), Cells(6, 9 + i * 7)).Value = "T"
Range(Cells(6, 10 + i * 7), Cells(6, 11 + i * 7)).Value = ""
Next i
End If
If Range("E6").Value = "F" Then
For i = 0 To 26
Range(Cells(6, 5 + i * 7), Cells(6, 9 + i * 7)).Value = "F"
Range(Cells(6, 10 + i * 7), Cells(6, 11 + i * 7)).Value = ""
Next i
End If
Gibt es außerdem noch eine elegantere und schnellere Methode 7 Zellen mit unterschiedlichen Werten zu beschreiben? z.B. range(A6:A8).value = "F", "T", "F" usw.
Gruß Thomas