Clever-Excel-Forum

Normale Version: Zielbereich definieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Hi


i=1 gibt die erste Zeile vor in die kopiert wird. Wenn du i= 20 setzt wird ab Zeile 20 reinkopiert
Wow, Danke! Das hat geklappt. Kann ich auch Spalte G, und dann ab Zeile 5 definieren? Also den Spaltennamen?
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?