Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro manuell ausführen wenn Zellwert vorhanden

Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 10:37:18
Heier
Hallo Experten,
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 10:43:11
Hajo_Zi
Hallo Rolf,
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Option Explicit
Sub kopieren()
' kopieren Makro
If Range("g1")  "" Then
Range("A1:G1").Copy Range("I1")
Range("A1:G1").ClearContents
End If
End Sub

Anzeige
AW: Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 10:49:28
Werner
Hallo Rolf,
If Range("G1").Value > 0 Then
Range("A1:G1").Copy Range("I1")
Range("A1:G1").ClearContents
Application.CutCopyMode = False
End If
Gruß Werner
Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 10:53:37
Hajo_Zi
Hallo Werner,
Application.CutCopyMode = False
ist nicht notwendig
Gruß Hajo
AW: Stimmt, ist ja ein Einzeiler, Danke. o.w. T
17.09.2016 12:37:58
Werner
AW: Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 10:51:52
Werner
Hallo Rolf,
oder du prüfst auf ungleich leer.
If Range("G1")  "" Then
Gruß Werner
AW: Makro manuell ausführen wenn Zellwert vorhanden
17.09.2016 14:29:42
Heier
Hallo Werner,
hier meine Rückmeldung.
If Range... hat funktioniert.
Vielen Dank für Deine Antwort.
Rolf
Anzeige
AW: Gerne u Danke für die Rückmeldung. owT
17.09.2016 16:05:33
Werner

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige