ich möchte, dass jeweils die komplette Zeile z.B. Zeile 3 in ein anderes Arbeitsblatt übernommen wird, wenn ich z.B. in K3 ein "x" eingebe.
Kann mir da jemand helfen? Da ich kein Profi bin, bitte möglichst einfach.
Vielen Dank im Vorraus,
Gruß Butzi
Sub Reihe_kopiern()
enda = Worksheets(1).Range("K65536").End(xlUp).Row
For i = 1 To enda
Range("K" & i).Activate
If ActiveCell.Value = "x" Then
Rows(i & ":" & i).Select
Selection.Copy
Worksheets(2).Activate
Range("A" & i).Select
ActiveSheet.Paste
Worksheets(1).Activate
End If
Next i
End Sub
Sub Reihe_kopiern()
k = 1
enda = Worksheets(1).Range("K65536").End(xlUp).Row
For i = 1 To enda
Range("K" & i).Activate
If ActiveCell.Value = "x" Then
Rows(i & ":" & i).Select
Selection.Copy
Worksheets(2).Activate
Range("A" & k).Select
ActiveSheet.Paste
Worksheets(1).Activate
k = k + 1
End If
Next i
End Sub