Prüfung Listbox seleciert

Forumthread: 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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Prüfung Listbox seleciert

26.02.2019 13:15:52

Nepumuk
AW: Prüfung Listbox seleciert

26.02.2019 13:20:50

Peter
AW: Prüfung Listbox seleciert

26.02.2019 13:30:33

Nepumuk
AW: Prüfung Listbox seleciert

26.02.2019 13:26:48

Peter
AW: Prüfung Listbox seleciert

26.02.2019 13:35:21

Nepumuk
AW: Prüfung Listbox seleciert

26.02.2019 15:22:19

Peter

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

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

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

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)

Forumthread: Prüfung Listbox seleciert

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread