Hallo Oliver,
super... das mit der Begrenzung des Suchraumes habe ich verstanden.
Es treten aber noch mehr Fragen auf.
Zum einen muss ich die Zeile
If varSuchtext = "" Or varSuchtext = False Then Exit Sub
zwingend auskommentieren, weil sonst ein
Run-Time Error 13: Type mismatch
erzeugt wird. Ist die Zeile weg, geht alles normal.
Dann noch die Frage nach dem Suchkriterium:
varSuchtext = Range("B1") & Range("C1")
Wenn ich in die beiden Zellen B1 und C1 etwas schreibe, wonach gesucht werden soll, dann wird das ganze mit einem
Fehler 400
abgebrochen.
Leider keine weiteren Erklärungen!
Ich habe aber noch eine weitere Frage:
Da die Tabelle Zeile mit Erklärungen für die ganzen Spalten enthält, würde ich diese auch gern mitkopieren.
Kann ich das hiermit:
With objAktSheet.Range("A1:AX1")
Do
objAktSheet.Rows.Copy
Gruß und schon jetzt vielen vielen Dank für die Hilfe!