Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.05.2024 16:15:58
Achsenabschnittlänge ändern
12.05.2024 15:53:59
VBA -> Gruppierung mittels Liste
12.05.2024 12:28:15
Index Vergleich such Kriterien wenn sonst wert
12.05.2024 10:04:21
Zellbezug zeigen anderes Arbeitsblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox befüllen aus 1.Spalte

Listbox befüllen aus 1.Spalte
07.05.2021 23:41:20
AndreAndreAndre
Hallo :)
Wie kann ich in die Listbox die Zahlen aus Spalte A anzeigen und wenn ich in der Listbox die erste Zahl klicke die Daten aus dem ersten Datensatz sehe.
Danke
lg Andre
https://www.herber.de/bbs/user/146066.xlsm
Userbild

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Perfekte Vorlage Danke
08.05.2021 00:32:03
AndreAndreAndre
^perfekt - gelöst danke - genauso dachte ich es mir - kann ich die Listbox statt in der Tabelle auch im Userform sortieren oder filtern so wie in der Tabelle :)
AW: Perfekte Vorlage Danke
08.05.2021 00:57:42
Oberschlumpf
das ist bestimmt auch alles möglich, aber dafür mach lieber einen neuen Thread auf - andere wollen bestimmt auch antworten ;-)
AW: Perfekte Vorlage Danke
08.05.2021 01:01:27
AndreAndreAndre
ok danke :)
AW: Listbox befüllen aus 1.Spalte
08.05.2021 00:23:20
Dieter
Hallo Andre,
du kannst das mit den beiden folgenden Prozeduren machen

Private Sub ListBox1_Change()
zeile = ListBox1.ListIndex + 2
TextBox1 = ws.Cells(zeile, "A")
TextBox2 = ws.Cells(zeile, "B")
TextBox3 = ws.Cells(zeile, "C")
End Sub
Private Sub UserForm_Initialize()
Dim letzteZeile As Long
Dim rng As Range
Set ws = ThisWorkbook.Worksheets("main")
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If letzteZeile
In der ListBox1.Change-Prozedur habe ich nur die ersten 3 Textboxen gefüllt.
Die weiteren gehen analog.
Oben im Modul1 schreibst du

Public ws As Worksheet
Public zeile As Long
Viele Grüße
Dieter
Anzeige
super :) ich probiere den auch gleich
08.05.2021 00:32:52
AndreAndreAndre
danke den code schau ich mir gleich an :) danke :)
danke für den Tipp :9
08.05.2021 00:42:12
AndreAndreAndre
danke für den Tipp
Gelöst durch: Dieter Klemke und Oberschlumpf danke
08.05.2021 01:04:11
AndreAndreAndre
war super :) die Lösung vom Oberschlumpf finde ich noch rascher sogar :)
LG Andre
Nur ergänzend
08.05.2021 08:21:19
RPP63
Moin!
Das Füllen einer List- oder Combobox mittels .AddItem ist (bei längeren Listen) langsam.
Sehr viel schneller läuft es, wenn man der List-Eigenschaft gleich den Wertebereich zuordnet.
Als Pseudocode:

Listbox1.List = Range("A2:A14567").Value
Snb hat da ein wahres Füllhorn (SIC!) ins Netz gestellt:
https://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html
Gruß Ralf
Anzeige
AW: Nur ergänzend
08.05.2021 10:57:29
Dieter
Hallo Ralf,
vielen Dank für diesen Hinweis, die genannte Web-Sie scheint ja wirklich eine Fundgrube zu sein.
Viele Grüße und ein schönes Wochenende
Dieter

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige