Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1704to1708
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

Werte aus TextBox in letzte Zeile einer ListBox

Werte aus TextBox in letzte Zeile einer ListBox
16.08.2019 12:57:26
Michael
Hallo zusammen,
ich habe eine Multiselect-ListBox, welche ich mit folgendem Code befülle:
Dim c As Range
Dim objWorkbook As Workbook
Dim lngAnzahl As Long
Dim strFirst As String
Set objWorkbook = GetObject(PathName:="C:\Users\pc\Desktop\Anmeldungen\Daten\Daten.xlsx")
With objWorkbook.Worksheets("Daten").Columns(18)
Set c = .Find(What:=TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not c Is Nothing Then
strFirst = c.Address
Do
Call ListBox1.AddItem(c.Value)
lngAnzahl = ListBox1.ListCount - 1
ListBox1.List(lngAnzahl, 0) = c.Offset(0, 0).Value
ListBox1.List(lngAnzahl, 1) = c.Offset(0, -2).Value
ListBox1.List(lngAnzahl, 2) = c.Offset(0, -1).Value
ListBox1.List(lngAnzahl, 3) = c.Offset(0, 2).Value
Set c = .FindNext(c)
Label1.Caption = c.Offset(0, -17).Value
Label2.Caption = c.Offset(0, -16).Value
Label3.Caption = c.Offset(0, -15).Value
Label4.Caption = c.Offset(0, -14).Value
Label5.Caption = c.Offset(0, -13).Value
Label6.Caption = c.Offset(0, -12).Value
Loop Until c.Address = strFirst
Set c = Nothing
End If
End With
Call objWorkbook.Close(SaveChanges:=False)
Set objWorkbook = Nothing
Nun möchte ich gerne, dass manuell über eine Textbox noch Werte hinzugefügt werden können.
Diese sollen einfach in der ListBox unten angefügt werden.
Leider bekomme ich den Code dazu nicht hin. Kann mir hierbei jemand helfen?
Vielen Dank und viele Grüße

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus TextBox in letzte Zeile einer ListBox
16.08.2019 13:02:04
Hajo_Zi
ListBox1.AddItem Textbox1
lngAnzahl = ListBox1.ListCount - 1
ListBox1.List(lngAnzahl, 0) = Textbox2
ListBox1.List(lngAnzahl, 1) = Textbox3
ListBox1.List(lngAnzahl, 2) = Textbox4
ListBox1.List(lngAnzahl, 3) = Textbox121

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Werte aus TextBox in letzte Zeile einer ListBox
16.08.2019 13:12:00
Michael
Hallo Hajo,
vielen Dank für deine schnelle Hilfe.
Funktioniert perfekt.....hätte ich auch selbst draufkommen können....müssen.
Vielen Dank
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige