so zum Einstieg in den Tag dachte ich mir einen kleinen Code zu erstellen Daraus ist nun etwas länger geworden und ich komme nicht drauf. Auch eine Suche im Forum hat nichts Passendes ergeben. Ich möchte gern zwei komplette Zeilen vertauschen. Die Selection kann eine ganze Zeile oder nur eine einzelne Zelle in einer Zeile sein (wird über .EntireRow gesetzt). Zeile1 an Position von Zeile2 und umgekehrt. Aber mein Vorgehen über .Cut/ :Insert Shift:=xlDown liefert mir den Debugger. Die Markierung ist ungültig. Mir scheint der Code aber plausibel. Im Forum und bei Google habe ich nur Einträge zum Thema Zeilen/ Spalten tauschen gefunden. Aber transponieren will ich nicht.
Vielleicht fällt jemandem im Forum als Aufwärmer für diesen Tag auf, warum der Code nicht wie gewünscht agiert. Ich freue mich über jede Anregung! Danke.
Sub ZeilenTauschenV2()
Dim clCells1 As Range
Dim clCells2 As Range
With Selection
Set clCells1 = .Cells(1, 1)
Set clCells2 = .Cells(1, 1)
clCells1.EntireRow.Cut
clCells2.EntireRow.Insert shift:=xlDown
clCells2.EntireRow.Cut
clCells1.EntireRow.Insert shift:=xlDown
End With
End Sub
Viele Grüße, Andreas Hanisch