Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox mit Mehrfachauswahl - Werte auslesen

Listbox mit Mehrfachauswahl - Werte auslesen
21.08.2013 22:43:07
Andy
Hallo Ihr,
ich habe eine für viele von Euch vermutlich relativ einfache Frage:
Ich habe eine Listbox (Listenfeld der ActiveX Steuerelement), die von den Werten in der Spalte A (bspw. "A", "B", "C", "D",......) gefüllt werden. Nun möchte ich eine Mehrfachauswahl in der Listbox machen und hätte die Werte dann bspw. in Spalte C nach und nach aufgeführt. Wähle ich also "B" und "D", so soll in C1 das "B" stehen und in C2 das "D".
Ich habe viel zu dem Thema gefunden, aber noch nicht das richtige. Kann mir jemand weiterhelfen? Nachfolgend der Link zu dem Beispiel wie ich es derzeit habe.
https://www.herber.de/bbs/user/86971.xlsm
Vielen, vielen Dank vorab.
Andy

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ListBox1.Selected(i) ...
21.08.2013 23:21:30
Matthias
Hallo Andy
Für Deine Bsp.Daten so:
Option Explicit
Private Sub ListBox1_Change()
Dim Zeile&, i&
Range("C1:C5").ClearContents
For i = 0 To 4
If ListBox1.Selected(i) = True Then
Zeile = Zeile + 1
Cells(Zeile, 3).Value = ListBox1.List(i)
End If
Next i
End Sub
Gruß Matthias

AW: ListBox1.Selected(i) ...
22.08.2013 07:37:15
Andy
Exzellent! Funktioniert wunderbar. Vielen Dank Matthias!!!
Andy

Danke für die Rückmeldung ... kwT
22.08.2013 07:38:51
Matthias

AW: Danke für die Rückmeldung ... kwT
22.08.2013 15:03:58
Andy
Ich muss das Thema noch einmal aufgreifen und hoffe Du, Matthias, liest meine Nachricht.
Alles klappt nun wunderbar, aber nun ist mir aufgefallen, dass wenn ich bereits Begriffe in der Listbox arkiert habe, diese Markierungen wieder verschwinden sobald ich die Sprache umstelle und in der Listbox nun die Übersetzungen stehen. Ein Beispiel:
Ich wähle in der Liste "Haus" aus und an anderer Stelle meiner Datei verwende ich die Info Haus. Schalte ich meine gesamte Tabelle auf "English" um (mache ich via WVERWEIS), so erscheint in der Listbox nun "House" statt "Haus" und (hier liegt mein Problem) meine Markierung dieses Begriffes geht verloren. Hast Du oder habt Ihr eine Idee?
Gruß.
Andy

Anzeige
AW: Danke für die Rückmeldung ... kwT
22.08.2013 15:46:06
grassshopper
Hole mit Sprachwechsel zuerst den Index der markierten Zeile
aktuellerIndex = Me.ListBox1.ListIndex
Nach Sprachwechsel kannst Du dann die Markierung auf diesen Index setzen
Me.ListBox1.ListIndex = aktuellerIndex
Klappt das?
Gruß,
grassshopper

AW: Danke für die Rückmeldung ... kwT
22.08.2013 16:44:04
Andy
Hallo grassshopper,
Dank Dir für die schnelle Antwort, aber ich glaube Du musst mir anhand einem Beispiel zeigen wo ich die von Dir erwähnten Markierungen einsetzen muss. Anbei findest Du ein Beispiel, bei dem die Markierungen verschwinden sobald ich die Sprache umstelle.
https://www.herber.de/bbs/user/86986.xlsm
Dank Dir vorab.
Andy

Anzeige
es geht ja um Mehrfachauswahl
23.08.2013 11:09:47
Matthias
Hallo
Bei Mehrfachauswahl hilft das also nichts.
Andy will ja nach der Umstellung der Sprache
die bereits selektierten Einträge wiederherstellen bzw. behalten.
Ist also Index(1) und Index(3) markiert(Selected) also Eintrag(2)und Eintrag(4)
so sollen nach Umstellung der Sprache diese Einträge wieder markiert werden.
Dazu müsste man die Indexwerte z.B. in eine Tabelle schreiben
und später über eine Schleife zurückschreiben.
Gruß Matthias

AW: es geht ja um Mehrfachauswahl
23.08.2013 15:24:02
Andy
Hallo Matthias,
hast Du eine Idee wie es funktionieren kann? Ich hatte eine Beispieldatei bereits hochgeladen:
https://www.herber.de/bbs/user/86986.xlsm
Dir ein gutes Wochenende.
Andy

Anzeige
AW: es geht ja um Mehrfachauswahl
25.08.2013 20:44:05
Matthias
Hallo
Zitat
hast Du eine Idee wie es funktionieren kann?
Die hatte ich ja bereits gepostet.

Dazu müsste man die Indexwerte z.B. in eine Tabelle schreiben o.Ä.
Später dann evtl. über eine Schleife zurückschreiben.
Probieren musst Du das erst mal selbst.
Gruß Matthias

307 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
1
9
2
7
2
2
4
5
4
2
1
4
1
1
5
4
10
6
5
3
1
1