Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2020to2024
2020to2024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox

Forumthread: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox

Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 16:50:19
Dieter(Drummer)
Guten Tag an alle.

Mit dem angebenen Code kann ich z.B. Dialog "Zellen formatieren" aufrufen.

Wie muss der Code lauten, dass ich den Wert Dialogs per Inputbox eingeben kann, damit ich nicht den "Wert", hier 43. schon im Code festlegen muss:

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer) 

Sub Dialogs_anzeigen()

Application.Dialogs(43).Show

End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 16:55:15
ReginaR
Hi,

so: 


Sub Dialogs_anzeigen()

Dim lng_dialogwert as long



lng_dialogwert = Inputbox("Dialogwert:")

Application.Dialogs(lng_dialogwert).Show

End Sub


VG Regina
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 17:04:24
Dieter(Drummer)
Danke Regina,

klappt perfekt.

Gruß,
Dieter(Drummer)
Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 18:46:01
Luschi
Hallo Dieter,

laut Excel-Vba-Hilfe gibt die InputBox()-Funktion nur Textwerte zurück, auch wenn der Inhalt wie 1 Zahl aussieht;
deshalb mach ich das so: lng_dialogwert = CLng(InputBox("Dialogwert:"))

Gruß von Luschi
aus klein-Paris
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 19:29:28
RPP63
Moin!
Ich würde sogar (wenn ich den Zahlenwert der diversen Konstanten kennen würde) statt der Inputbox-Funktion die Application.Inputbox-Methode nutzen.

Gruß Ralf
Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 23:03:18
Dieter(Drummer)
Danke Luschi,

mit deiner Variante klappt es auch prima.

Gruß,
Dieter(Drummer)
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 23:28:16
Luschi
Hallo Dieter,

es geht doch nicht darum, ob etwas "prima" funktioniert, sondern um den Fakt, ob der Vba-Code sauber programmiert wurde.
In anderen Prog-Sprachen würde sowas jämmerlich scheitern!

Gruß von Luschi
aus klein-Paris
Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
31.01.2026 10:23:29
Dieter(Drummer)
Danke Luschi,

für Info.

Gruß,
Dieter(Drummer)
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
30.01.2026 22:58:01
Dieter(Drummer)
Hallo Ralf,

hatte den Code schon so angepasst. 
Sub Dialogs_anzeigen4()

Dim lng_dialogwert As Long

 lng_dialogwert = Application.InputBox("Dialogwert:", "Wert")

 Application.Dialogs(lng_dialogwert).Show

End Sub


Er funktioniert wie gewünscht.

Gruß,
Dieter(Drummer)
Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
31.01.2026 09:19:38
RPP63
Die Application.InputBox-Methode hat den Vorteil, dass man das "Zielformat" mittels Type:= vorgeben kann:
Zitat aus der VBA-Hilfe:
In der folgenden Tabelle sind die Werte aufgeführt, die im Type-Argument übergeben werden können. Kann ein Wert oder eine Summe der Werte sein. Für ein Eingabefeld, das sowohl Text als auch Zahlen akzeptieren kann, legen Sie z. B. Type auf 1 + 2 fest.

Wert Beschreibung
0 Formel
1 Zahl
2 Text (Zeichenfolge)
4 Wahrheitswert (True oder False)
8 Zellbezug, z. B. ein Range -Objekt
16 Fehlerwert, z. B. #NV
64 Ein Wertearray.

https://learn.microsoft.com/de-de/office/vba/api/excel.application.inputbox

Gruß Ralf

Anzeige
AW: Diverse Dialogs anzeigen per Wert des Dialogs über Inputbox
31.01.2026 10:25:26
Dieter(Drummer)
Danke Ralf,

für Info und ich werde mich damit beschäftigen.

Gruß,
Dieter(Drummer)
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum