Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nach Eingabe in ListIndex UserForm öffnen

Nach Eingabe in ListIndex UserForm öffnen
10.11.2017 03:22:19
Marco
Abend =)
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ListIndex erwartet einen Index keinen String ...
10.11.2017 08:15:27
Matthias
Hallo
If Maßnahme.ListIndex = "Tester" Then
UserForm2.Show
ListIndex erwartet eine Zahl von -1 bis(n), keinen String
Also entweder
If Maßnahme.ListIndex = 1 (bspw.)
oder
If Maßnahme.Value = "Tester"
Gruß Matthias
AW: ListIndex erwartet einen Index keinen String ...
10.11.2017 08:59:44
Marco
Danke Matthias jetzt funktioniert es. Also vorher hat es auch funktioniert aber allerdings nur mit einer Abfrage und nicht mit drei. Jetzt habe ich noch eine kleine Frage. Wenn ich nichts in den ListIndex BBoxen auswähle und dann auf den Button "Bearbeiten" klicke öffnet sich kein Fenster. Das ist okay. Aber es schließt sich das Fenster mit den ListIndex Boxen. Das sollte jetzt nicht unbedingt sein. Kann man das verriegeln?
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.Value = "Tester" Then
UserForm2.Show
ElseIf Maßnahme.Value = "Ultraschall" Then
UserForm3.Show
ElseIf Maßnahme.Value = "Linse" Then
UserForm4.Show
End If
End If
End Sub

Anzeige
AW: ListIndex erwartet einen Index keinen String ...
10.11.2017 09:36:45
Werner
Hallo Marco,
pack mal dein Unload Me in den If - Zweig, jeweils vor Userform2.Show
Gruß Werner
Danke es läuft =)
10.11.2017 20:09:28
Marco
=)
Gerne u.Danke für die Rückmeldung. o.w.T.
10.11.2017 20:49:38
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige