Hallo Excel-Forum,
bitte nicht lachen oder schimpfen wg, nicht genug Recherche, aber ich finde in diesem simplen Code meinen Fehler nicht.
For lngRow3 = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lngRow3) = 2 Then
Rows(lngRow3).Resize(2).Insert
Exit Sub
Else
End If
Wenn IngRow3 bei Zeilennummer 2 ist wird nicht nach Then weitergegangen sondern auch wieder nach Else.
Kann mir einer sagen was ich übersehe und falsch mache?
Vielen Dank im Voraus und Grüße
Jürgen