Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1676to1680
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

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

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
AW: Prüfung Listbox seleciert
26.02.2019 15:22:19
Peter
Hallo Nepumuk,
besten Dank.
Noch einen schönen Tag.
Gruss
Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige