Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox: wie frage ich ab, ob Element selektiert?

Forumthread: Listbox: wie frage ich ab, ob Element selektiert?

Listbox: wie frage ich ab, ob Element selektiert?
werner.prothmann@wincor-nixdorf.com
Ich habe eine Listbox mit Mehrfachauswahl und möchte beim Click-Ereignis abfragen,
ob das Element selektiert oder deselektiert wurde. Wie muß diese Abfrage aussehen?
Gruß Werner.
Anzeige
mit einer Schleife
08.09.2009 08:16:21
Tino
Hallo,
Beispiel:
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then MsgBox ListBox1.List(i, 0)
Next i
Gruß Tino
AW: mit einer Schleife
08.09.2009 08:42:35
WernerP
Das ist nicht was ich brauche.
Ich möchte nach dem Anklicken eines Elements der Listbox nur bei diesem
Element abfragen ob eine Selektion oder eine Deselektion vorliegt.
Etwa so 

ListBox1.Selected(i)
nur was muß ich für das i eintragen?

ListBox1.Selected(ListBox1.ListIndex)
bringt Laufzeitfehler: "Eigenschaft Selected konnte nicht abgerufen werden. Ungültiges Argument"
Gruß Werner.
Anzeige
oder eine bestimmte Zeile abfragen...
08.09.2009 09:21:58
Tino
Hallo,
habe mir deinen zweiten Beitrag nochmal durchgelesen.
Für i gibst Du den Index der Zeile ein die Du abfragen möchtest.
Der Index ist eins kleiner wie die Zeile, also Zeile 1 hat den Index 0 und Zeile 2 den Index 1 usw...
Wenn Du nun eine bestimmte Zeile abfragen möchtest, z. Bsp. die Zeile 10 gibst Du für i die 9 an.
z. Bsp. für die Zeile 10 

Private Sub ListBox1_Change()
If ListBox1.Selected(9) Then
MsgBox "Zeile 10 ist aktiviert"
Else
MsgBox "Zeile 10 ist nicht aktiviert"
End If
End Sub
Gibt es die Zeile mit dem Index 9 nicht kommt es zu einem Fehler,
dies kannst Du aber auch abfangen wenn Du zuvor überprüfst ob es so viele gibt.
Private Sub ListBox1_Change()
If ListBox1.ListCount > 9 Then
If ListBox1.Selected(9) Then
MsgBox "Zeile 10 ist aktiviert"
Else
MsgBox "Zeile 10 ist nicht aktiviert"
End If
End If
End Sub

Gruß Tino
Anzeige
AW: Listbox: wie frage ich ab, ob Element selektiert?
08.09.2009 08:42:14
xr8k2
Hallo Werner,
ich glaub bei der Einstellung Multiselect in einer Listbox wird kein Click-Ereignis ausgelöst.
Gruß,
xr8k2
AW: Listbox: wie frage ich ab, ob Element selektiert?
08.09.2009 08:44:39
WernerP
Das wird bei mir ausgelöst.
Gruß Werner.
AW: Listbox: wie frage ich ab, ob Element selektiert?
08.09.2009 08:52:11
xr8k2
Hallo Werner,
ok ... nein nicht ok ... hab´s getestet im Excel2003 Clickereignis wird bei mir nicht ausgelöst, nur Doppelklick geht.
Aber egal ... wenns bei dir funktioniert, dann müsste das hier bei dir aber auch funktionieren:
Private Sub ListBox1_Click()
MsgBox ListBox1.Selected(ListBox1.ListIndex)
End Sub
Gruß,
xr8k2
Anzeige
nicht Click versuche es mit Change oT.
08.09.2009 08:58:24
Tino
Danke, es läuft
08.09.2009 09:42:46
WernerP
Es war mein Fehler. Ich hatte es gestern mit dem Click-Ereignis probiert und das funktionierte nicht.
Dann hatte ich auf Change umgestellt und das lief. Heute morgen dachte ich, dass ich immer noch mit
Click arbeite.
Das Problem trat dadurch zustande, dass ich beim Userform-Init die Listbox füllte und dadurch ein
Change-Ereignis auslöste, welches wiederum den Laufzeitfehler verursachte.
Nochmals vielen Dank für Eure Bemühungen.
Gruß, Werner.
Anzeige
;

Forumthreads zu verwandten Themen

Listbox
Klaus

Hallo,
wie kann ich dafür sorgen, dass der Fokus einer Listbox beim öffnen auf dem gleichen Index liegt, wie beim Verlassen?
MfG. Klaus
08.08.2008 19:25:00
Thread-ID: 1000396
5 Beiträge
Anzeige
Komplette ListBox an Tabelle
Chris

Hallo Zusammen,
Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
Gruß
Christian
13.08.2008 07:33:00
Thread-ID: 1001355
4 Beiträge
Anzeige
Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
Anzeige
Daten in Listbox
Henner

Hi,
ich öffne aus einer UF heraus per CommandButton eine zweite UF (UF_CLRMemo), in der sich eine Listbox befindet mit dem Code:
Private Sub CBCLRMemo_Click() For i = 84 To 93 UF_CLRMemo.ListBox1.AddItem Sheets("UF_NeuesProjekt").Cells(i, 1).Value Next UF_CLRMemo.Show End Sub
Wie...
08.09.2008 15:35:00
Thread-ID: 1008180
3 Beiträge
Bestimmte Fonts in ListBox übernehmen
Larsinator

Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
09.09.2008 18:02:55
Thread-ID: 1008558
2 Beiträge
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Anzeige
Listbox
Beat

hallo zusammen
das Einlesen eines Tabellenbereichs in eine Listbox klappt problemlos.
Jetzt möchte ich einzelne Zeilen der Listbox editieren.
Ist das möglich?
Wenn nicht, möchte ich einzelne Zeilen in Textboxen ausgeben. Wie kann ich
die einzelne Zeilen übertragen?
Grus...
29.09.2008 15:32:00
Thread-ID: 1013140
10 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
ListBox - Multiselect 1
Josef

Hallo!
In einer UF werden in eine Listbox Daten eingelesen. In der Listbox ist die Eigenschaft MultiSelect auf 1 eingestellt.
1.) Gibt es bitte eine Möglichkeit, mittels eines Befehls in alle Kästchen (CheckBoxen?) gleichzeitig ein Hakerl zu setzen?
2.) Wird ein Hakerl am Anfang des...
02.10.2008 10:39:00
Thread-ID: 1013807
3 Beiträge
Listboxeintrag korrigieren
beat

Hallo
ich möchte in einer listbox eingetragene Werte anpassen. Dazu markiere ich eine Listbox-Zeile und
schreibe die Werte in zwei Textboxen. In diesen Textboxen können die Werte korrigiert werden. Anschliessend möchte ich die korrigierten Werte wieder in die Listobox eintragen, und z...
03.10.2008 11:25:00
Thread-ID: 1013998
7 Beiträge
Listbox / Tabelle Eintrag ändern
Volker

Hallo zusammen,
ich habe folgendes Problem:
Ich versuche mittels folgendem Code Daten aus einer UF-Listbox in die dazugehörenden Textboxes zurückzuschreiben, hier zu ändern und dann in die Tabelle zurückzugeben.
Bei den ersten 4 Zeilen der Tabelle funktioniert das auch. Ab dem 5. E...
06.10.2008 14:20:00
Thread-ID: 1014441
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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