Zeilen in andere Arbeitsmappe lkopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
  

Re: Zeilen in andere Arbeitsmappe kopieren

von: jinx
Geschrieben am: 16.04.2002 - 20:42:49


Moin, Elmar,

Du solltest den Bereich ansprechen, in den Du die Werte einfügen möchtest...

Deine Schleife läuft bei mir bis ans Blattende - ich habe es mit folgendem Code getestet (hier werden die Zeilen im zweiten Blatt direkt untereinander geschrieben):

  

Re: Zeilen in andere Arbeitsmappe kopieren

von: jinx
Geschrieben am: 16.04.2002 - 20:45:26


Moin, Elmar,

und eigentlich sollte dann auch noch unter den Text:

HTH
jinx

(wird hiermit nachgeholt)

nach unten

Betrifft: Zeilen in andere Arbeitsmappe lkopieren
von: Elmar
Geschrieben am: 16.04.2002 - 19:13:18

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilen in andere Arbeitsmappe lkopieren"