Schleifen mit Bedingungen
21.07.2004 08:53:52
Claudi
ich hoffe es kann mir jemand weiter helfen.
Ich möchte in einem Excelsheet Spalten abgreifen, diese sollen solange abgegriffen werden, bis entweder nichts mehr in der nächsten zelle steht bzw. ein Null darin steht.
Gleichzeitig muss aber der Index mitlaufen.
Bisher habe ich das Problem folgender Maßen gelöst, was leider nicht richtig funktioniert:
For i = 14 To rechtsAnzahl1 + 14 Step 2
If WS7.Cells(k, i) 0 Then
Monat = WS7.Cells(k, i)
Tag = WS7.Cells(k, i + 1)
WS8.Cells(k + 1, i - 8) = CDate((WS8.Cells((k + 1), m).Value & "." &
WS7.Cells(k, i).Value & "." & WS7.Cells(k, i + 1).Value))
End If
Next i
Claudi