ich möchte abhängig eines Zellinhaltes mit einem Button eine Grafik einblenden.
Ich wähle mittels Auswahlfeld eine Maschine aus.
Dann möchte ich auf Knopfdruck eine Grafik zu der Auswahl anzeigen.
Die Grafiken habe ich in den Formularen als UserForm eingefügt.
Ich habe mir folgendes zusammengestrickt, komme aber nicht weiter. Kann mir jemand helfen?
Vielen Dank im Voraus.
Viele Grüße
Ralf
Sub Maschine_1()
Maschine_1.Show
End Sub
Sub Maschine_2()
Maschine_2.Show
End Sub
Sub Maschine_3()
Maschine_3.Show
End Sub
Sub Maschine_4()
Maschine_4.Show
End Sub
Sub leer()
leer.Show
End Sub
Sub Grafik_anzeigen()
If Worksheets("Eingabe").Range("B3").Value = "" Then leer.Show
ElseIf Worksheets("Eingabe").Range("B3").Value = "Maschine 1_Typ1" Or "Maschine 1_Typ2" Or " _
Maschine 1_Typ3" Or "Maschine 1_Typ4" Then Maschine 1.Show
ElseIf Worksheets("Eingabe").Range("B3").Value = "Maschine_2" Then Maschine_2.Show
ElseIf Worksheets("Eingabe").Range("B3").Value = "Maschine_3" Then Maschine_3.Show
ElseIf Worksheets("Eingabe").Range("B3").Value = "Maschine_4" Then Maschine_4.Show
End If
End Sub