Ich habe eine Befehlsschaltfläche mit folgendem Makro:
Sub kopieren()
' kopieren Makro
Range("A1:G1").Select
Selection.Copy
Range("I1:O1").Select
ActiveSheet.Paste
Range("A1:G1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
End Sub
Grundsätzlich sind die Zellen A1:G1 leer.Dann werden dort Zahlen eingetragen.
Und erst wenn die Zelle G1 ein Wert größer Null enthält(also nicht leer ist), soll das Makro manuell (nicht automatisch) ausführt werden können.
Ist dieses möglich und wenn ja, wie müsste die Erweiterung aussehen?
Vielen Dank im Voraus für Euer Bemühen.
Grüße
Rolf Heier