Schleife zur Suche einer 0 und Wenn dann bedingung
11.02.2015 13:39:36
Jens
Ich bin leider relativ neu bei VBA und habe nur gefährliches Halbwissen von Stata.
Nun Zum Thema, ich versuche eine Schleife zu bauen. Mein momentaner Code sieht so aus.
Sub Milestone()
Do
If Cells(i, 6).Value = 0 Then 'cells(Zeile,Spalte) zur Info
Cells(i, 1).Value = Cells(i, 4).Value
End If
Loop
End Sub
Erstens funktioniert er nicht und zweitens ist es noch nicht alles was ich abfragen will. Wenn ich den Code richtig geschrieben habe, dann sollte er folgendes tun, wenn ich Spalte 6 der Wert 0 steht, dann kommt in Spalte 1 der Wert der Spalte 4.
jetzt hätte ich aber gerne, dass er nach dem er Spalte 6 auf eine Null geprüft hat auch Spalte 9 und spalte 10 auf nuller prüft und für diese dann wiederum die Werte aus Zeile 7 bzw. 8 in Spalte 1 schreibt. Kann mir jemand helfen?