Daniel hat mir dankbarerweise folgenden Befehl geschrieben:
Sub Tausch()
Dim rngZWS As Range
With Selection
If .Areas.Count = 2 Then
If .Areas(1).Cells.Count = .Areas(2).Cells.Count And _
.Areas(1).Rows.Count = .Areas(2).Rows.Count And _
.Areas(1).Columns.Count = .Areas(2).Columns.Count Then
Set rngZWS = Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2, . _
Column)
.Areas(1).Copy rngZWS
.Areas(2).Copy .Areas(1)
rngZWS.CurrentRegion.Copy .Areas(2)
rngZWS.CurrentRegion.EntireRow.Delete
End If
End If
End With
End Sub
https://www.herber.de/bbs/user/64600.xls
Wenn ich, so wie im Beispiel markiere und den Makro ausführe, wird B3 ebenfalls ausgefüllt (aaa). Ich hätte gern, dass in B3 das selbe wie in B1 übernommen wird, sie also leer bleibt. Weiterhin möchte ich, dass die Füllfarben nicht mit übernommen werden.
Danke für eure Hilfe.
Gruß
Karsten