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