VBA Excel Dropdown If/ElseIf Msgbox
24.06.2022 22:29:40
Vivi
ich habe in einem Makro-Sheet zwei Dropdowns mit Textinhalten, die ich im Makro mit If/ElseIf/Else kombinieren möchte. Es soll jeweils eine Messagebox ausgegeben werden.
Problem: Es wird nur immer die erste Auswahl des Dropdowns erkannt bzw. bei Kombinationen von beiden tut sich gar nichts.(Keine Fehlermeldung).
Vielen lieben Dank schon mal für eure Unterstützung!
Beispiel:
DropdownFirma
Firma1
Firma2
Firma3
Firma4
und
DropdownStadt
Stadt1
Stadt2
Stadt3
Dim Firma As String
Firma = ThisWorksbooks.Sheet ("Sheetname").Range("DropdownFirma").value
Dim Stadt As String
Stadt = ThisWorksbooks.Sheet ("Sheetname").Range("DropdownStadt").value
If Firma = "Firma1" Then
Run "msgbox Firma1"
ElseIf Firma = "Firma1" & Stadt = "Stadt3" Then
Run "msgbox_Event2"
ElseIf Firma = "Firma2" & Stadt "Stadt2" Then
Run "msgbox_Event5"
....
Else: Run "Bearbeitung_weiter"
End If
Viele Grüße, Vivi