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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen