Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wieder mal Zeilen kpieren

Wieder mal Zeilen kpieren
26.08.2005 10:15:33
RoPo
Hallo Leute!
Würde gerne ausgewählte Zeilen kopieren. Habe das auch schon mit einer anderen Excel-Version geschafft. Verwende folgendes Skript:
Dim zeile1 As Integer
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
zeile1 = zeile1 + 1
For iRow = iRowL To 1 Step -1
If Worksheets("Quelle").Cells(iRow, Spalte) = "0001" Then
Rows(iRow).Copy Sheets("Ziel").Range(zeile1 + 1, 1)
End If
Next iRow
Bekomme aber immer folgende Fehlermeldung:
Laufzeitfehler: 1004
Anwendungs- oder objektdefinierter Fehler
Danke für die rasche Hilfe!!
RoPo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wieder mal Zeilen kpieren
26.08.2005 10:20:45
Galenzo
in welcher Zeile?
heißen deine Tabellenblätter auch "Quelle" und "Ziel"
steht in der Quelltabelle in Spalte A auch etwas drin
AW: Wieder mal Zeilen kpieren
26.08.2005 10:23:06
RoPoe
Hallo Galenzo!
Die Blätter heissen so!
In der Zeile:
Rows(iRow).Copy Sheets("Ziel").Range(zeile1 + 1, 1)
RoPo
AW: Wieder mal Zeilen kpieren
26.08.2005 10:38:50
sawadee00
Es liegt wohl an "Spalte".
So, wie du es geschrieben hast, ist sie leer.
AW: Wieder mal Zeilen kpieren
26.08.2005 10:50:26
Galenzo
Rows(iRow).Copy Sheets("Ziel").Cells(zeile1 + 1, 1)
Viel Erfolg!
AW: Wieder mal Zeilen kpieren
26.08.2005 11:03:04
RoPo
Hi Galenzo,
Na klar, danke für die rasche Hilfe!
Ciao RoPo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige