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