habe noch ein Anpassungsproblem. Über eine UserForm kann ich individuell
Dateien/Tabellen/Spalten für eine Suchabfrage auswählen. Die Spalte
erhält dann im Code "mySpalte".
Bei einer Stelle komme ich nicht weiter; siehe Fragezeichen:
Option Explicit Set wks1 = Sheets(ComboBox2.Text) Set wks2 = Sheets(ComboBox5.Text) Set wksNeu = Sheets("Gefunden") lng2 = IIf(IsEmpty(wks2.Cells(65536, mySpalte2)), wks2.Cells(65536, mySpalte2).End(xlUp).Row, 65536) lngNeu = IIf(IsEmpty(wksNeu.Range("A65536")), wksNeu.Range("A65536").End(xlUp).Row + 1, 65536) For lngRow = 1 To lng2 Set rng = wks1.Columns(mySpalte).Find(wks2.Cells(lngRow, mySpalte2), _ LookIn:=xlValues, LookAt:=xlWhole, after:=wks1.[A65536]) '? hier müsste A in "mySpalte" geändert werden If Not rng Is Nothing Then sFirst = rng.Address rng.EntireRow.Copy wksNeu.Cells(lngNeu, 1) lngNeu = lngNeu + 1 Do Set rng = wks1.Columns(mySpalte).FindNext(after:=rng) If Not rng Is Nothing Then If sFirst = rng.Address Then Exit Do rng.EntireRow.Copy wksNeu.Cells(lngNeu, 1) lngNeu = lngNeu + 1 End If Loop End If
Da gibts doch bestimmt ne Lösung; komme nicht drauf.
Besten Dank für eine Hilfe!
mfg
Erich