Hola!
Ich versuche gerade, eine mit einer UserForm ein Dialogfeld zu erstellen. Dieses soll zwei Kombinationsfelder enthalten.
Das erste Dialogfeld ist eine Auswahl zwischen den verschiedenen Ordnern, das andere soll entsprechend der ersten Auswahl die enthaltenen Vorlagen präsentieren, um davon dann eines auswählen zu können.
Was genau stimmt hier mit meinem Code nicht? Das Feld wird angezeigt, die Ordner auch, aber bei der If-Anweisung scheinen wohl Fehler zu sein:
Private Sub UserForm_Initialize()
With cmb_Ordner
.AddItem "Allgemein"
.AddItem "Deutsch"
cmb_Ordner.Value = "-Ordner wählen-"
End With
With cmb_Vorlage
cmb_Vorlage.Value = "-Vorlage wählen-"
If Me.cmb_Ordner.Value = "Allgemein" Then
.AddItem "Brief Vorlage.dot"
.AddItem "Ferienmeldeblatt.dot"
.AddItem "Spesenmeldung.dot"
ElseIf Me.cmb_Ordner.Value = "Deutsch" Then
.AddItem "Spesenmeldung.dot"
.AddItem "Überstunden Meldung.dot"
Else
.AddItem "Bitte Ordner auswählen"
End If
End With
End Sub
Danke im Voraus für die Antworten.
LG LiamFinnley
|