Warum wird die Variable x nicht im neuem
Arbeitsblatt verarbeitet?
Vielen Dank im Voraus
Gruß Fritz
Sub findenkopieren()
Dim Zelle
Dim x
y = Column
For Each Zelle In Range("A1:B6")
If Zelle.Value = 5 Then
Zelle.Select
Selection.Copy
x = Row + 1
Zelle(x, 3).Select
Worksheets("Tabelle3").Select
x = Row + 1
Cells(x, 3).Activate
ActiveSheet.Paste
Worksheets("Tabelle2").Select
End If
Next
End Sub