Hi Leute,
ich bin am verzweifeln. Ich habe eine DoLoop-Schleife erstellt welche aber nach einigen Durchläufen immer an den Anfang der Sub springt und dadurch ein fehlerhaftes Verhalten auslöst, da dann die Variable i wieder auf den Anfangswert gesetzt wird.
Sub ZwischenzeilenEinfuegen()
Dim i As Long
i = 6
With tblZahlungUebersicht
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value <> .Cells(i + 1, 1).Value Then
.Cells(i + 1, 1).EntireRow.Insert
End If
i = i + 1
Loop
End With
End Sub
Wo liegt der Fehler?
Danke euch und beste Grüße
Flo
|