VBA copy und paste

[Thomasius]

Danke an Alle
und vorab ein guten Rutsch ins Neue Jahr

habe mein aniegen so gelöt

Sub SpaltenC_D_Tauschen()
    Dim ws As Worksheet
    Dim rngC As Range
    Dim rngD As Range
    Dim cell As Range
    Dim temp As Variant ' Temporäre Variable für den Wert

    Set ws = ThisWorkbook.Sheets("Tabelle1") ' Passen Sie den Namen "Tabelle1" an Ihre Tabelle an

    ' Definieren Sie den Bereich, der getauscht werden soll (z.B. von Zeile 1 bis Zeile 100)
    Set rngC = ws.Range("C1:C100")
    Set rngD = ws.Range("D1100")

    ' Schleife durch jede Zeile
    For Each cell In rngC.Cells
        ' Wert von Spalte C in temp speichern
        temp = cell.Value

        ' Wert von Spalte D nach Spalte C kopieren
        cell.Value = cell.Offset(0, 1).Value ' Offset(0, 1) geht eine Spalte nach rechts (zu D)

        ' Wert aus temp in Spalte D schreiben
        cell.Offset(0, 1).Value = temp
    Next cell

    MsgBox "Inhalte von Spalte C und D wurden getauscht!", vbInformation
End Sub