Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
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