Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zielbereich definieren
#1
Rainbow 
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
Antwortento top
#2
Hi


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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste