Eingebaute Dialoge: Unterschied zwischen den Versionen

Aus VBA-wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „== Alle Office-Anwendungen == === FileDialog === Das 'FileDialog'-Objekt ist in allen Office-Anwendungen enthalten und wird wie folgt eingesetzt (Beispiel ei…“)
 
Keine Bearbeitungszusammenfassung
Zeile 1: Zeile 1:
== Alle Office-Anwendungen ==
== Alle Office-Anwendungen ==
=== MsgBox: Meldung anzeigen ===
Die MsgBox dient dazu, dem Anwender kurze Mitteilungen bzw. Aufforderungen anzuzeigen und gegebenenfalls auf seine Entscheidung einzugehen.
==== Einfache Meldungen ====
Die Grundform der MsgBox bietet eine Aufforderung (Prompt), eine Überschrift (Title) und einen OK-Knopf an:
MsgBox "Der Vorgang wurde erfolgreich abgeschlossen!", , "Vorgang abgeschlossen"
[[Datei:MsgBoxOkOnly.png]]
Folgender Code fügt dem Dialog ein Informations-Icon hinzu und sorgt dafür, dass der Dialog mit einem 'Ping' über die Lautsprecher angekündigt wird:
MsgBox "Der Vorgang wurde erfolgreich abgeschlossen!", vbInformation, "Vorgang abgeschlossen"
[[Datei:MsgBoxOkOnlyInfo.png]]
=== Inputbox: Einfacher Eingabedialog ===
Die Inputbox wird dazu verwendet, eine einfache Eingabe durch den Anwender zu ermöglichen:
Public Sub ShowInputBox()
    Dim strInput As String
   
    strInput = InputBox("Bitte etwas eingeben:", "Meine InputBox", "Test")
    Debug.Print strInput
End Sub
[[Datei:InputBox_02.png]]
Der Titel und der Vorgabetext ("Test") sind optional. Wenn der Anwender den Dialog abbricht, wird ein Leerstring ("") zurückgegeben.


=== FileDialog ===
=== FileDialog ===


Das 'FileDialog'-Objekt ist in allen Office-Anwendungen enthalten und wird wie folgt eingesetzt (Beispiel einer Funktion, welche die Auswahl eines Verzeichnisses ermöglicht): <span style="Color:#0000FF;">Private Function </span>BrowseToPath() <span style="Color:#0000FF;">As </span>String <span style="Color:#0000FF;">Dim </span>dlg <span style="Color:#0000FF;">As </span>FileDialog <span style="Color:#0000FF;">Set </span>dlg <span style="Color:#993300;">= </span>Application.FileDialog(msoFileDialogFolderPicker) dlg.Title <span style="Color:#993300;">=</span> <span style="Color:#808080;">"Zielverzeichnis wählen"</span> dlg.InitialFileName <span style="Color:#993300;">=</span> <span style="Color:#808080;">"C:\temp\"</span> dlg.Show <span style="Color:#0000FF;">If </span>dlg.SelectedItems.Count <span style="Color:#993300;">></span> <span style="Color:#00FFFF;">0 </span>Then BrowseToPath <span style="Color:#993300;">= </span>dlg.SelectedItems.Item(<span style="Color:#00FFFF;">1</span>) <span style="Color:#0000FF;">End If</span> <span style="Color:#0000FF;">End Function</span> Siehe auch [[Arbeiten mit Dateien#Eingebaute Datei-Dialoge|Arbeiten mit Dateien: Eingebaute Datei-Dialoge]] für weitere Möglichkeiten und Optionen.
Das 'FileDialog'-Objekt ist in allen Office-Anwendungen enthalten und wird wie folgt eingesetzt (Beispiel einer Funktion, welche die Auswahl eines Verzeichnisses ermöglicht):
 
<span style="Color:#0000FF;">Private Function </span>BrowseToPath() <span style="Color:#0000FF;">As </span>String
    <span style="Color:#0000FF;">Dim </span>dlg <span style="Color:#0000FF;">As </span>FileDialog
   
    <span style="Color:#0000FF;">Set </span>dlg <span style="Color:#993300;">= </span>Application.FileDialog(msoFileDialogFolderPicker)
    dlg.Title <span style="Color:#993300;">=</span> <span style="Color:#808080;">"Zielverzeichnis wählen"</span>
    dlg.InitialFileName <span style="Color:#993300;">=</span> <span style="Color:#808080;">"C:\temp\"</span>
    dlg.Show
    <span style="Color:#0000FF;">If </span>dlg.SelectedItems.Count <span style="Color:#993300;">></span> <span style="Color:#00FFFF;">0 </span>Then
        BrowseToPath <span style="Color:#993300;">= </span>dlg.SelectedItems.Item(<span style="Color:#00FFFF;">1</span>)
    <span style="Color:#0000FF;">End If</span>
<span style="Color:#0000FF;">End Function</span>
 
Siehe auch [[Arbeiten mit Dateien#Eingebaute Datei-Dialoge|Arbeiten mit Dateien: Eingebaute Datei-Dialoge]] für weitere Möglichkeiten und Optionen.


== Word und Excel ==
== Word und Excel ==


Die Anwendungen Word und Excel stellen viele ihrer eigenen Dialoge über das 'Dialogs'-Objekt zur Verfügung. In PowerPoint stehen keine eigenen Dialoge zur Verfügung. '''Bitte beachten:''' Viele der über 'Dialogs' angebotenen Dialoge wurden inzwischen von anderen Lösungen abgelöst (zum Beispiel Task Panes für Seriendruck, der Druckvorgang erfolgt nun über einen Aufgabenbereich) und erscheinen dem Anwender somit eventuell fremd und altmodisch.
Die Anwendungen Word und Excel stellen viele ihrer eigenen Dialoge über das 'Dialogs'-Objekt zur Verfügung. In PowerPoint stehen keine eigenen Dialoge zur Verfügung.
 
'''Bitte beachten:''' Viele der über 'Dialogs' angebotenen Dialoge wurden inzwischen von anderen Lösungen abgelöst (zum Beispiel Task Panes für Seriendruck, der Druckvorgang erfolgt nun über einen Aufgabenbereich) und erscheinen dem Anwender somit eventuell fremd und altmodisch.

Version vom 10. Oktober 2018, 15:50 Uhr

Alle Office-Anwendungen

MsgBox: Meldung anzeigen

Die MsgBox dient dazu, dem Anwender kurze Mitteilungen bzw. Aufforderungen anzuzeigen und gegebenenfalls auf seine Entscheidung einzugehen.

Einfache Meldungen

Die Grundform der MsgBox bietet eine Aufforderung (Prompt), eine Überschrift (Title) und einen OK-Knopf an:

MsgBox "Der Vorgang wurde erfolgreich abgeschlossen!", , "Vorgang abgeschlossen"

MsgBoxOkOnly.png

Folgender Code fügt dem Dialog ein Informations-Icon hinzu und sorgt dafür, dass der Dialog mit einem 'Ping' über die Lautsprecher angekündigt wird:

MsgBox "Der Vorgang wurde erfolgreich abgeschlossen!", vbInformation, "Vorgang abgeschlossen"

MsgBoxOkOnlyInfo.png

Inputbox: Einfacher Eingabedialog

Die Inputbox wird dazu verwendet, eine einfache Eingabe durch den Anwender zu ermöglichen:

Public Sub ShowInputBox()
    Dim strInput As String
    
    strInput = InputBox("Bitte etwas eingeben:", "Meine InputBox", "Test")
    Debug.Print strInput
End Sub

InputBox 02.png

Der Titel und der Vorgabetext ("Test") sind optional. Wenn der Anwender den Dialog abbricht, wird ein Leerstring ("") zurückgegeben.

FileDialog

Das 'FileDialog'-Objekt ist in allen Office-Anwendungen enthalten und wird wie folgt eingesetzt (Beispiel einer Funktion, welche die Auswahl eines Verzeichnisses ermöglicht):

Private Function BrowseToPath() As String
    Dim dlg As FileDialog
    
    Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
    dlg.Title = "Zielverzeichnis wählen"
    dlg.InitialFileName = "C:\temp\"
    dlg.Show
    If dlg.SelectedItems.Count > 0 Then
        BrowseToPath = dlg.SelectedItems.Item(1)
    End If
End Function

Siehe auch Arbeiten mit Dateien: Eingebaute Datei-Dialoge für weitere Möglichkeiten und Optionen.

Word und Excel

Die Anwendungen Word und Excel stellen viele ihrer eigenen Dialoge über das 'Dialogs'-Objekt zur Verfügung. In PowerPoint stehen keine eigenen Dialoge zur Verfügung.

Bitte beachten: Viele der über 'Dialogs' angebotenen Dialoge wurden inzwischen von anderen Lösungen abgelöst (zum Beispiel Task Panes für Seriendruck, der Druckvorgang erfolgt nun über einen Aufgabenbereich) und erscheinen dem Anwender somit eventuell fremd und altmodisch.