Nach Eingabe in ListIndex UserForm öffnen
10.11.2017 04:22:19
Marco
ich habe mir gerade ein Userform gebastelt bei dem ich in zwei von einander abhängigen ListIndex Boxen meine auswahl treffe und sich dann inabhängigkeit von der listbox Maßnahme ein bestimmtess userform öffnen soll. mein code läuft durch aber ich erhalte keine fehlermeldung. Der Code meckert nicht es tut sich danach aber nichts. Mit dem Befehl Show ruft man doch normal solche fenster auf oder? habe ich etwa was vergessen?
Private Sub Bearbeiten_Click()
'Bestätigen der ausgewählten Combobox Werte, schließen der UserForm1.
Dim iZeile As Long
If Anlagenkürzel.ListIndex >= 0 And Maßname.ListIndex >= 0 Then
With Worksheets(C_mstrDatenblatt)
For iZeile = 6 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(iZeile, 4) = >Anlagenkürzel And .Cells(iZeile, 5) = Maßnahme Then
Zeile = iZeile
Exit For
End If
Next iZeile
End With
Unload Me
If Maßnahme.ListIndex = "Tester" Then
UserForm2.Show
ElseIf Maßnahme.ListIndex = "Ultraschall" Then
UserForm3.Show
ElseIf Maßnahme.ListIndex = "Linse" Then
UserForm4.Show
End If
End If
End Sub
Anzeige