Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Listbox 2 Spaltig einlesen

Betrifft: Listbox 2 Spaltig einlesen von: Walter k
Geschrieben am: 21.09.2020 16:33:49

Hallo zusammen,
ich suche Unterstützung für das einlesen der Daten in eine Listbox1 auf einer Userform.
Die Daten stehen in Tabelle "Typen" Spalte B und C ab Zeile 4.
Länge der Daten kann unterschiedlich sein also mal bis Zeile 150 oder auch bis 200.

mfg walter k

Betrifft: AW: Listbox 2 Spaltig einlesen
von: Rudi Maintaire
Geschrieben am: 21.09.2020 16:37:31

Hallo,
with sheets("Typen")
  Listbox1.List=.Range(.cells(4,2),.cells(4,2).end(xldown)).resize(,2).Value
end with
Gruß
Rudi

Betrifft: AW: Listbox 2 Spaltig einlesen
von: Walter k
Geschrieben am: 21.09.2020 16:50:50

Hallo Rudi,
danke funktioniert über:
Private Sub CommandButton25_Click()
With Sheets("Typen")
  ListBox1.List = .Range(.Cells(4, 2), .Cells(4, 2).End(xlDown)).Resize(, 2).Value
End With
End Sub
Hatte die 3Zeilen in die UF eingesetzt, da werden die Daten nicht eingelesen.
mfg
walter k

Betrifft: Sorry klappt jetzt... -)
von: Walter k
Geschrieben am: 21.09.2020 16:54:01

Hallo Rudi,
habe die Makro Zeilen zum Schluss eingefügt, jetzt klappt es.

Danke
walter k

Betrifft: Nachfrage
von: Walter k
Geschrieben am: 21.09.2020 17:02:47

Hallo Rudi,
ich habe eine Frage.
Die ausgewählten Daten sollen in die Textbox1 für Spalte B und Textbox2
für Spalte C
eingesetzt werden, egal ob Doppelklick oder mit Button.
Hatte das mal gefunden, klappt nicht:
'--- Auswahl übernehmen ----------------
Private Sub CommandButton23_Click()
Dim FundZeile  As Long     ' die Zeile die gesucht/angeklickt wurde

   TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 0)
   TextBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 1)
 
   FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 2)
End Sub
mfg walter k

Betrifft: Habe Lösung gefunden --))
von: Walter k
Geschrieben am: 21.09.2020 17:19:25

Hallo,
habe die Zeile:
' FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 2)
weggelassen.

mfg
walter k

Betrifft: Andere Frage zum Löschen ???
von: Walter k
Geschrieben am: 21.09.2020 17:54:09

Hallo zusammen,
wie kann ich den die ausgewählten Daten der Textbox1 und Textbox2
per Makro auch in der Datenbank der Spalte B + C löschen ?

mfg
walter k

Betrifft: Auch selbst gefunden -)
von: Walter k
Geschrieben am: 21.09.2020 18:20:35



Beiträge aus dem Excel-Forum zum Thema "Listbox 2 Spaltig einlesen"