With Worksheets("Auftrag").Range("a10:af30000")
Set c = .Find(intern, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstaddress = c.Address
ListBox1.Clear
Labelsuchhinweis = ""
Do
gefunden = c.Row
ListBox1.AddItem gefunden
ListBox1.ColumnCount = 17
ListBox1.ColumnWidths = "75;60;60;45;20;45;20;80;55;40;40;40;35;80;35;60;0"
On Error Resume Next
ReDim Preserve arrvalues(0 To 16, 0 To zeile)
arrvalues(0, zeile) = Cells(gefunden, 1)
arrvalues(1, zeile) = Cells(gefunden, 2)
arrvalues(2, zeile) = Cells(gefunden, 3)
arrvalues(3, zeile) = Cells(gefunden, 4)
arrvalues(4, zeile) = Cells(gefunden, 5)
arrvalues(5, zeile) = Cells(gefunden, 6)
arrvalues(6, zeile) = Cells(gefunden, 7)
arrvalues(7, zeile) = Cells(gefunden, 8)
arrvalues(8, zeile) = Cells(gefunden, 9)
arrvalues(9, zeile) = Cells(gefunden, 24)
arrvalues(10, zeile) = Cells(gefunden, 10)
arrvalues(11, zeile) = Cells(gefunden, 11)
arrvalues(12, zeile) = Cells(gefunden, 12)
arrvalues(13, zeile) = Cells(gefunden, 25)
arrvalues(14, zeile) = Cells(gefunden, 26)
arrvalues(15, zeile) = Cells(gefunden, 27)
arrvalues(16, zeile) = Cells(gefunden, 32)
Sheets("Datensätze").Cells(zeiletab, 1) = Cells(gefunden, 1)
Sheets("Datensätze").Cells(zeiletab, 2) = Cells(gefunden, 2)
Sheets("Datensätze").Cells(zeiletab, 3) = Cells(gefunden, 3)
Sheets("Datensätze").Cells(zeiletab, 4) = Cells(gefunden, 4)
Sheets("Datensätze").Cells(zeiletab, 5) = Cells(gefunden, 5)
Sheets("Datensätze").Cells(zeiletab, 6) = Cells(gefunden, 6)
Sheets("Datensätze").Cells(zeiletab, 7) = Cells(gefunden, 7)
Sheets("Datensätze").Cells(zeiletab, 8) = Cells(gefunden, 8)
Sheets("Datensätze").Cells(zeiletab, 9) = Cells(gefunden, 9)
Sheets("Datensätze").Cells(zeiletab, 10) = Cells(gefunden, 24)
Sheets("Datensätze").Cells(zeiletab, 11) = Cells(gefunden, 10)
Sheets("Datensätze").Cells(zeiletab, 12) = Cells(gefunden, 11)
Sheets("Datensätze").Cells(zeiletab, 13) = Cells(gefunden, 12)
Sheets("Datensätze").Cells(zeiletab, 14) = Cells(gefunden, 25)
Sheets("Datensätze").Cells(zeiletab, 15) = Cells(gefunden, 26)
Sheets("Datensätze").Cells(zeiletab, 16) = Cells(gefunden, 27)
Sheets("Datensätze").Cells(zeiletab, 17) = Cells(gefunden, 32)
zeile = zeile + 1
zeiletab = zeiletab + 1
warten.Label4 = zeile
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstaddress
End If
End With
If zeile 0 Then ListBox1.Column = arrvalues
Dauert sehr lane, WARUM?
Gruß
otto