Schleife wiederholen
09.06.2006 08:39:34
Anton
ich möchte die Überschriften (Zeile 1) unter jeden gefundenen Eintrag der Spalte A setzen lassen.
Die Vorgehensweise:
Zählen der Überschriften mit:
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Zeile auswählen mit:
Sub ZeileEinfügen()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 2 Step -2
If Cells(i, 1).Value Like "*CDN*" Then
Cells(Lrow - 1, 1).Insert Shift:=xlDown
End If
Next i
'Schade, der Code funzt nur vor der letzten Zeile
End Sub
Dies hier habe ich aufgezeichnet:
Sub ZZ_AUFZ_ZeileEinfügen()
Range("A14").Select
Selection.EntireRow.Insert
Range("A13").Select
End Sub
Bitte wer kann mir weiterhelfen?
Problem A: mir fehlt der Code für die Wiederholung
Problem B: Das Makro "ZeileEinfügen" wirkt nur auf die letzte Zeile.
Für Eure Hilfe danke ich Euch sehr.
Servus,
Anton