bastle an folgendem Problem:
Suche einen Wert in einer Spalte,
wenn gefunden übertrage Zelle
in Sheet "neu" ab der Zeile 2 untereinander.
Mit folgendem Code wird immer in die gleiche Zeile von Sheet neu übertragen;
die Anpassung gelingt mir nicht:
Option Explicit
Sub Test1()
Dim strSearch As String, i As Integer
strSearch = "Test"
For i = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
If ActiveSheet.Cells(i, 1) = strSearch Then
Sheets("neu").Cells(i, 1) = ActiveSheet.Cells(i, 1)
' Sheets("neu").Cells.End(xlUp).Row 1, 1 = ActiveSheet.Cells(i, 1)
End If
Next i
End Sub
Besten Dank für eine Hilfe!
mfg
Erich