Hallo zusammen,
ich bin nicht so bewandert mit VBA und brauche mal Hilfe:
In einem Tabellenblatt sind in den Spalten I bis M Typen erfasst - anber nicht alle Felder sind ausgefüllt. D.h. in einer Zeile kann bereits in Spalte I ein Eintrag sein, in einer anderen Zeile aber erst in K.
Wenn ich nun die Kundennummer in einer Textbox bestätigen sollen mit die Einträge der jeweiligen Zeile in einer Listbox angezeigt werden.
Mit folgendem Code mache ich es jetzt, allerdings sollen nur die ausgefüllten Felder angezeigt werden:
Dim c As Range
Dim rngBereich As Range
Dim lngAnzahl As Long
Dim strFirst As String
With Sheets("Kunden")
Set rngBereich = .Columns("A:A")
Set c = rngBereich.Find(TextBox_KDNR, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
strFirst = c.Address
Do
ListBox_GP.AddItem .Cells(c.Row, 9)
ListBox_GP.AddItem .Cells(c.Row, 10)
ListBox_GP.AddItem .Cells(c.Row, 11)
ListBox_GP.AddItem .Cells(c.Row, 12)
ListBox_GP.AddItem .Cells(c.Row, 13)
Set c = rngBereich.FindNext(c)
Loop While Not c Is Nothing And c.Address strFirst
End If
End With
Es fehlt scheinbar die Zeile oder die Option, dass nur ausgeüllte Felder ausgelesen werden.
Hat jemand einen Tip?
Gruß
Andre