Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrostart über Inputbox

Makrostart über Inputbox
09.01.2004 09:20:42
simmi
Hallo zusammen,
ich möchte über eine Inputbox ein ganz bestimmtes Makro laufen lassen.
Beispiel:
ich geb in die Inputbox die Zahl 8 ein, dann soll das Makro 8 ablaufen
gebe ich in die Inputbox die Zahl 12 ein, dann läuft das Makro12.
Vielen Dank für eure Hilfe
Simmi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrostart über Inputbox
09.01.2004 09:42:51
Nabriss
Hallo Simi
so:

Sub box()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Wert von 1 bis 20 eingeben"    ' Aufforderung festlegen.
Titel = "InputBox"    ' Titel festlegen.
Voreinstellung = "1"    ' Voreinstellung festlegen.
' Dialog an der Position 100,100 anzeigen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung, 100, 100)
If Wert1 = 1 Then Call Makro1
If Wert1 = 12 Then Call Makro12
End Sub

Gruß
Nabriss
AW: Makrostart über Inputbox
09.01.2004 10:10:08
simmi
Hallo Nabriss,
vielen Dank für die prompte Antwort
Es sind ca. 25 verschiedene Makros die ich starten könnte.
ich müsste dann für jedes Makro die Zeile If Wert1 = 15 Then Call Makro15 eingeben.
Kann man da nicht einfach den Wert der Variablen aus der Inputbox irgendwie einfügen.
If wertl = wertl then call Makro wertl ???? das geht aber so nicht(kommt Fehler)
Danke
Simmi
Anzeige
AW: Makrostart über Inputbox
09.01.2004 09:56:26
Nepumuk
Hallo Simmi,
so geht's:

Option Explicit
Public Sub Makros_starten()
Dim varNummer As String
Do
varNummer = Application.InputBox("Nummer eingeben.", "Makronummer", Type:=1)
If varNummer = False Then Exit Do
On Error Resume Next
Application.Run ("Makro" & CStr(varNummer))
If Err.Number = 0 Then Exit Do
If MsgBox("Ein Makro mit der Nummer " & CStr(varNummer) & " gibt es nicht." & vbLf & Space(14) & "Nochmal versuchen?", 52, "Hinweis") = 7 Then Exit Do
Err.Clear
Loop
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
AW: Makrostart über Inputbox Danke
09.01.2004 10:18:30
Simmi
Hallo Nepumuk,
danke genau so wollte ich es.
Danke auch an Nabriss.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige