Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzerd. Schaltfläche mit Abfrage welches Makro

benutzerd. Schaltfläche mit Abfrage welches Makro
lisa
Hallo
Ich habe in meiner Mappe in die Menüleiste eine benutzerdefinierte Schaltfläche eingefügt und ein Makro zugewiesen.
Da klaptt alles super. Trotzdem hätte ich gern etwas umgestellt. Ich habe zwei Makros und nun möchte ich gern über eine Abfrage steuern welches Makro laufen soll.
Wie kann ich soetwas umsetzen? Benötige ich hierzu eine Userform?
Kann mir bitte jemand hierbei helfen
Gruß lisa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: benutzerd. Schaltfläche mit Abfrage welches Makro
23.12.2009 09:46:10
Gerd
Hallo Lisa,
am einfachsten nach diesem Schema.
Sub A()
If Cells(1,1)=  "" then
Call BB
Else
Call CC
End If
End Sub


Sub BB()
End Sub


Sub CC()
End Sub
Gruß Gerd
AW: benutzerd. Schaltfläche mit Abfrage welches Makro
23.12.2009 17:21:33
Mustafa
Hallo Lisa,
Der Code gehört in ein Modul 
Sub AA()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Geben sie den Makronamen ein"    ' Aufforderung festlegen.
Titel = "Makrostart"    ' Titel festlegen.
Voreinstellung = "BB"    ' Voreinstellung festlegen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
Application.Run (Wert1)
End Sub


Sub BB()
Cells(1, 1) = "BB"
End Sub


Sub CC()
Cells(1, 1) = "CC"
End Sub

Frohes Fest und guten Rusch ins neue Jahr.
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige