Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-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

Werte aus TextBox in letzte Zeile einer ListBox


Betrifft: Werte aus TextBox in letzte Zeile einer ListBox von: Michael
Geschrieben am: 16.08.2019 12:57:26

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

  

Betrifft: AW: Werte aus TextBox in letzte Zeile einer ListBox von: Hajo_Zi
Geschrieben am: 16.08.2019 13:02:04

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

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


  

Betrifft: AW: Werte aus TextBox in letzte Zeile einer ListBox von: Michael
Geschrieben am: 16.08.2019 13:12:00

Hallo Hajo,

vielen Dank für deine schnelle Hilfe.
Funktioniert perfekt.....hätte ich auch selbst draufkommen können....müssen.

Vielen Dank


Beiträge aus dem Excel-Forum zum Thema "Werte aus TextBox in letzte Zeile einer ListBox"