Hallo,
ich möchte das die zu kopierenden Zeilen(alle mit einer Zahl in der spalte i) immer auf die 2 arbeitsmappe untereinander kopiert werden.
Immoment kopiert er alles aufeinander .
Bitte helft mir danke im Vorraus
Hier der VBA Code
Dim Kopiere As Integer
For Kopiere = 3 To 100
Application.ScreenUpdating = False
If IsNumeric(Cells(Kopiere, 10).Value) And Not Cells(Kopiere, 10).Value = "" _
Then Rows(Kopiere).Select
Selection.Copy
Sheets("Entnahmeschein").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets("ET-Lager").Select
Next Kopiere
Application.ScreenUpdating = True
|