Kann mir bitte jemand dabei helfen. Ich möchte eine Spalte kopieren und in eine andere leere Spalte so kopieren, dass die kopierte Zeilen oder Spalte um eine Zeile nach unten verschoben wird. Wie funktioniert das mit Makro VBA?
Danke!
Lg,
Mary
Sub Schaltfläche1_Klicken()
With Worksheets("Tabelle1")
.Range("D1:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Copy .Range("E2")
End With
End Sub
Gruß WernerSub Schaltfläche1_Klicken()
Dim loLetzte As Long, loLetzte1 As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
loLetzte1 = .Cells(.Rows.Count, "C").End(xlUp).Row
.Cells(2, "A").Offset(loLetzte - loLetzte1).Resize(.Cells(.Rows.Count, "A") _
.End(xlUp).Row - (loLetzte - loLetzte1 + 1)).Copy .Range("B2")
End With
End Sub
Gruß WernerSub Makro1()
Dim loLetzte As Long, loLetzte1 As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
loLetzte1 = .Cells(.Rows.Count, "C").End(xlUp).Row
.Cells(2, "A").Offset(loLetzte - loLetzte1) _
.Resize(loLetzte - loLetzte1 + 1).Copy .Range("B2")
End With
End Sub
Gruß Werner