ich habe folgenden Code:
Sub verschieben()
Dim rng As Range
Dim ALetzte As Long
'## Letzte nichtleere Zelle in Spalte A ermitteln
ALetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
'## Einträge verschieben
For Each rng In Sheets("Liste").Range("A7:A" & ALetzte)
If rng = Range("AA1") Then Range(Cells(rng.Row, 1), _
Cells(rng.Row, 12)).Insert Shift:=xlToRight
Next
End Sub
Funktioniert auch einwandfrei, nur müsste ich nicht in Spalte A suchen, sondern in Spalte L.
Wenn dann der Wert mit der Range in AA1 übereinstimmt, dann soll er den Bereich von A:K in den Bereich N:V verschieben.
Ich dachte jetzt, dass ich
For Each rng In Sheets("Liste").Range("A7:A" & ALetzte)
in
For Each rng In Sheets("Liste").Range("L7:L" & AErste)
ändere, aber das funktioniert nicht. Habe ich einen Denkfehler drin?
Gruß und danke für Eure Hilfe.
Frederic