Nach bestimmtem Text suchen und kopieren usw..
27.11.2013 11:31:43
hoffnungslos
Folgende Probleme: Ich habe eine Arbeitsmappe mit 2 Tabellen. Ich möchte die eine Tabelle durchsuchen nach einem Text (der gesuchte Text ist in der Spalte J, Text = Marke). Falls der Text gefunden wird, soll die ganze Zeile kopiert werden und in die andere Tabelle geschrieben werden (Beginn bei Zeile 18, fortlaufend). Ich weiss zum vornherein nie wieviele Zeilen mit dem gesuchten Text es geben wird.
2. Problem: Nachdem alle Werte mit dem gesuchten Text kopiert wurden, will ich dasselbe mit einem anderen Text machen und von der letzten Zeile des zuletzt kopierten Texts 3 Zeilen weiter unten weitermachen.
Bisher habe ich folgenden Code, der nicht funktioniert:
Sub copyrows()
If [j2].Value = "Marke" Then Sheets("tabelle2").Range(2).Select
Selection.Copy
Sheets("tabelle1").Select
Sheets("tabelle1").Range(18).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielen Dank für eure Inputs
hoffnungsloser ;)