Hi,
ich habe mir folgendes gebastelt
Dim master(5) As String
master(1) = ActiveWorkbook.Path & "\"
master(2) = ActiveWorkbook.Name
master(3) = ActiveWorkbook.Sheets(1).Name
master(4) = ActiveWorkbook.Sheets(2).Name
master(5) = ActiveWorkbook.Sheets(4).Name
Dim Kundenname As String
Kundenname = Workbooks(master(2)).Sheets(master(3)).Cells(markedZeile, markedSpalte + 2).Value
TextBox1 = Kundenname
Dim LastRow As Single
LetzteZeile = Worksheets("Files").Cells(Rows.Count, 1).End(xlUp).Row
With ListBox1
.ColumnCount = 2
.ColumnWidths = "10cm,10cm"
.ColumnHeads = False
End With
Dim Name As String
Dim Beschreibung As String
For i = 3 To LetzteZeile
If Workbooks(master(2)).Sheets(master(5)).Cells(i, 1).Value = Kundenname Then
Name = Workbooks(master(2)).Sheets(master(5)).Cells(i, 2).Value
Beschreibung = Workbooks(master(2)).Sheets(master(5)).Cells(i, 3).Value
ListBox1.RowSource = [Name, Beschreibung]
End If
If Workbooks(master(2)).Sheets(master(5)).Cells(i, 1).Value = "alle" Then
ListBox1.AddItem (Workbooks(master(2)).Sheets(master(5)).Cells(i, 2).Value)
End If
Next
Jedoch habe ich ein Problem mit der Zeile ListBox1.RowSource...
Und zwar suche ich aus der Tabelle Files Dateinen von einem bestimmten Kundennamen. Nun möchte ich, wenn ich eine entsprechende Zeile gefunden habe sofort den Namen der Datei (Spalte 2 der Tabelle), eine nächere Beschreibung (Spalte 3 der Tabelle) und das Datum (Spalte 4 der Tabelle) in eine mehrspaltige ListBox eintragen.
Kann mir jemand weiterhelfen wie das geht?
Vielen Dank.
Nique