Ich kann keine Schleife!
31.08.2017 12:38:15
Reinhardt
ich möchte in ein aktuelles Fahrtenbuch die NICHTBENUTZTEN Tage per VBA eintragen.
Dazu brauche ich eine Schleife die zwischen zwei nicht aufeinanderfolgenden Datumsangaben eine Zeile einfügt, und das Datum ergänzt.
Mein Problem:
Damit verändert sich ja immer wieder die LETZE ZEILE, meine Versuche mit einer Schleife enden immer nach dem ersten ermitteln der LZ.
Wer kann mir einmal einen Tip geben?
Viele Grüße
Reinhardt
Sub WhileBsp()
Dim i As Integer
Dim LZ%
LZ = Cells(Rows.Count, 1).End(xlUp).Row + 1
i = 1
While i LZ
Range("B" & i).Select
If Range("B" & i).Value > 1 Then
Rows(ActiveCell.Row).Insert
Range("A" & i).Value = "Test"
End If
MsgBox "While-Schleife: " & i
i = i + 1
Wend
End
Sub