Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen in andere Arbeitsmappe lkopieren

Re: Zeilen in andere Arbeitsmappe kopieren
16.04.2002 20:42:49
jinx

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):

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen in andere Arbeitsmappe kopieren
16.04.2002 20:45:26
jinx

Moin, Elmar,

und eigentlich sollte dann auch noch unter den Text:

HTH
jinx

(wird hiermit nachgeholt)

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

Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige