Zielbereich definieren

[Kirschgurke]

Hallo Lieber Excel Freunde, ich komme mit meiner Zielvorstellung für den Code nicht weiter.
Ich möchte, dass die in Tabelle 1 abgegriffenen Zeilen nicht sofort in die erste Zeile von Tabelle 2 geschrieben werden,
sondern das ich z.B. definieren kann, dass diese erste irgendwo in der Mitte des Tabellenblattes reinkopiert werden.

Hat jemand eine Idee`?



Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
Dim strSuchbegriff As String

strSuchbegriff = Tabelle1.Cells(1, 1)
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
i = 1
For Zeile = 4 To ZeileMax
If .Cells(Zeile, 2).Value = strSuchbegriff Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(i)
i = i + 1
End If
Next Zeile
End With
End Sub

[Winny]

Hi


i=1 gibt die erste Zeile vor in die kopiert wird. Wenn du i= 20 setzt wird ab Zeile 20 reinkopiert

[Kirschgurke]

Wow, Danke! Das hat geklappt. Kann ich auch Spalte G, und dann ab Zeile 5 definieren? Also den Spaltennamen?

[Winny]

Hi

dann musst Du aber auch den Bereich beschränken der kopiert wird. Welcher wäre denn das, nur die eine Zelle die gesucht und gefunden wird?