Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfung Listbox seleciert

Forumthread: Prüfung Listbox seleciert

Prüfung Listbox seleciert
26.02.2019 13:08:25
Peter
Hallo ihr Excelspezialisten,
ich habe eine Userform mit Textbox4 und Listbox1.
Ich benötige eine Prüfung, dass
If Listbox1 nichts selectiert ist und Textbox4 >"" then
Commandbutton2.enabled =True und Commandbutton5.enabled=false
elseIf Listbox1 Eintrag selectiert und Textbox4 > "" then
Commandbutton2.enabled =False und Commandbutton5.enabled=true
elseif Listbox1 nichts selectiert ist und Textbox4 ="" then
Commandbutton2.enabled =False und Commandbutton5.enabled=False
end if
Besten Dank für Eure Hilfe.
Gruss
Peter
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung Listbox seleciert
26.02.2019 13:15:52
Nepumuk
Hallo Peter,
wenn nichts selektiert ist, dann: If ListBox1.ListIndex = -1 Then
Gruß
Nepumuk
AW: Prüfung Listbox seleciert
26.02.2019 13:20:50
Peter
Hallo Nepomuk,
besten Dank für Deine Antwort.
Ich habe folgedendes Makro:
<pre>Private Sub TextBox4_Change()
Dim j As Integer 'benötigt für Prüfung ob Listbox1 selectiert ist
With ActiveSheet
For j = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True And TextBox4.Value > "" Then
CommandButton5.Enabled = True
CommandButton2.Enabled = False
ElseIf ListBox1.Selected(j) = False And TextBox4.Value > "" Then
CommandButton2.Enabled = True
CommandButton5.Enabled = False
ElseIf ListBox1.Selected(j) = 0 And TextBox4.Value = "" Then
CommandButton2.Enabled = False
CommandButton5.Enabled = False
End If
Next j
End With
End Sub</pre>
Meine Prüfung hat ergeben, dass die gesamte Listbox abgearbeitet wird. Ich bräuchte hier einen Stopp, wenn die markierte Zeile erreicht ist.
Gruss
Peter
Anzeige
AW: Prüfung Listbox seleciert
26.02.2019 13:30:33
Nepumuk
Hallo Peter,
ist das eine Multiselect-Listbox?
Gruß
Nepumuk
AW: Prüfung Listbox seleciert
26.02.2019 13:26:48
Peter
Hallo Nepumuk,
habe die Lösung dank Deiner Hilfe gefunden.
<pre>Private Sub Textbox4_Change()
If ListBox1.ListIndex = -1 And TextBox4.Value = "" Then
CommandButton2.Enabled = False
CommandButton5.Enabled = False
ElseIf ListBox1.ListIndex = -1 And TextBox4.Value > "" Then
CommandButton2.Enabled = True
CommandButton5.Enabled = False
ElseIf ListBox1.ListIndex > 0 And TextBox4.Value > "" Then
CommandButton2.Enabled = False
CommandButton5.Enabled = True
End If
End Sub</pre>
Nochmals besten Dank
Gruss
Peter
Anzeige
AW: Prüfung Listbox seleciert
26.02.2019 13:35:21
Nepumuk
Hallo Peter,
vergiss meine letzte Antwort, hatte deine letzte nicht gelesen. ABER:
diese Zeile:
ElseIf ListBox1.ListIndex > 0 And TextBox4.Value > "" Then
musst du so schreiben:
ElseIf ListBox1.ListIndex >= 0 And TextBox4.Value > "" Then
denn der Index 0 entspricht der ersten Zeile der ListBox.
Gruß
Nepumuk
Anzeige
AW: Prüfung Listbox seleciert
26.02.2019 15:22:19
Peter
Hallo Nepumuk,
besten Dank.
Noch einen schönen Tag.
Gruss
Peter
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige