Zeilen in andere Arbeitsmappe lkopieren
16.04.2002 19:13:18
Elmar
Hallo Leute,ich habe hier ein Makro umgeschrieben, was mir Zeilen von der einen in die andere Tabelle kopieren soll.
Leider bekomme ich immer die Fehlermeldung, dass die zu kopierenden und der einzufügende Bereich nicht gleich sind (Laufzeitfehler 1004).
Kann mir jemand sagen, was ich falsch mache?
Ich habe absolut die gleichen Mappen mit der gleichen Spaltenbeschriftung usw. Natürlich auch keine verbundenen Zellen usw.
Kann jemand im unteren Code einen Fehler entdecken?
Grüße
Elmar
Sub BestimmteZeilenkopieren()
Const Blatt1 = "Projektplan"
Const Blatt2 = "Realisierungsplan"
Dim i As Integer
Dim iAnz As Integer
Application.ScreenUpdating = False
Sheets(Blatt1).Activate
Range("N2").Select
iAnz = 0
i = 0
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "a" Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets(Blatt1).Select
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
End Sub