Hallo

for intspalte = 1 to 4... da werden die Einträge aus den Spalten A bis D aus Tabelle1 in die Spalten A bis D in Tabelle2 geschrieben

for intspalte = 5 to 14... da werden die Einträge aus den Spalten E bis N aus Tabelle1 in die Spalten F bis O (intspalte +1) in Tabelle2 geschrieben

dann käme als nächstes in die Zeile zwischen dem letzten Next und lngZielZeile = lngZielZeile +1

diese Codezeile

Sheets("Tabelle2").Cells(lngZielZeile, 5) = .Cells(Suchergebnis.Row,  1)

damit werden die Einträge aus Spalte A in Tabelle1 in Spalte E in Tabelle2 geschrieben

btw. der Code könnte glatt von mir stammen, wenn ich mir die deklarierten Varaiablen so anschaue...

mfg