Hallo Zusammen!
In TextBox steht immer ein Nachname, Vorname.
Mittels folgendem Code wird in der Tabelle gesucht:
Dim m, y, c As Byte
m = 51 'Spaltennummer variabel
y = ComboBox1.ListIndex * 5
c = m + y
Dim daten() As Variant, avntValues As Variant
Dim lng As Long, lngCount As Long
With Worksheets("Datenbestand")
avntValues = .Range(.Cells(5, c), .Cells(305, c + 5))
End With
With frmAufwandsentschädigung
.ListBox1.ColumnCount = 6
.ListBox1.ColumnWidths = "63;145;145;142;145;60"
.ListBox1.Clear
For lng = LBound(avntValues) To UBound(avntValues)
If avntValues(lng, 2) = TextBox1 And TextBox1 "" Then
lngCount = lngCount + 1
ReDim Preserve daten(0 To 16, 1 To lngCount)
daten(0, lngCount) = avntValues(lng, 1)
daten(1, lngCount) = avntValues(lng, 2)
daten(2, lngCount) = avntValues(lng, 3)
daten(3, lngCount) = avntValues(lng, 4)
daten(4, lngCount) = avntValues(lng, 5)
daten(5, lngCount) = lng + 4
End If
Next lng
On Error Resume Next
.ListBox1.Column = daten
End With
Aber wie muss mein Code verändert bzw. erweitert werden, wenn der Name aus TextBox1 nicht gefunden wurde, denn nun soll er noch prüfen ob ab Zeile 4 - 305 und den festen Spalten 190 - 194 (der dann zu suchende Name steht in Spalte 191) der Name zu finden ist.
Da fehlt mir das nötige Rüstzeug. Ich bitte nun um eure Hilfe und bedanke mich im Voraus.
L.G. Frank H.