ich würde gerne bestimmte Zellen mit einer Schaltfläche kopieren und automatisch in der nächsten freien Zeile einfügen. Es sollen die Zellen C69 bis O84 kopiert und in der Spalte C in die nächstfreie Zeile eingefügt werden.
Sub Unit()
Dim Quelle As Range, Ziel As Range
Set Quelle = Range("C69:O84")
Set Ziel = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
Call Quelle.Copy(Destination:=Ziel)
Set Ziel = Nothing: Set Quelle = Nothing
End Sub
Gruß GerdDie 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