|
Ich möchte, dass bei klicken einer Schaltfläche Text aus einer Zelle in eine andere Zelle eines anderen Tabellenblattes kopiert wird.
Dabei soll der alte Text nicht überschrieben werden, sondern der Text in die nächste nicht-leere Zeile eingefügt werden.
D.h., beim ersten Betätigen der Schaltfläche soll der Text in die Zelle A1 kopiert werden, beim zweiten in Zelle A2 usw.
Das Macro habe ich soweit aufgezeichnet, im Moment überschreibt er aber nur immer die Zeile A7
'
' Schaltfläche1_Klicken Makro
'
'
Range("D5:H5").Select
Selection.Copy
Sheets("Aufmaß").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hauptübersicht").Select
Range("F5:H5").Select
Application.CutCopyMode = False
Selection.ClearContents
|