Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen kopieren wenn Bedingung erfüllt...

Zeilen kopieren wenn Bedingung erfüllt...
27.01.2004 17:06:51
Daniel
Hallo Zusammen!
Habe ein kleines Problem mit einem Makro, das nicht so will, wie ich will...;-) Es geht um folgendes: Ich möchte alle Zeilen (von allen Tabellenblättern), die in der Spalte D den Wert "Frankfurt" haben, auf das Tabellenblatt "FFM" kopieren (wird über Button gesteuert)! Nur leider bekomme ich immer einen Fehler... Vielleicht könnt Ihr mir ja sagen, wo das Problem liegt... Wäre Euch sehr dankbar...;-)
Gruß
Daniel
PS: Hier der Code:


Sub sammeln()
Dim Wks1 As Worksheet, Wks As Worksheet
Dim z As Long, lzWks1 As Long, lzWks As Long
Set Wks1 = Sheets("FFM")
For Each Wks In Worksheets
lzWks1 = Wks1.[a65536].End(xlUp).Row + 1
If Not Wks.Name = Wks1.Name Then
lzWks = Wks.[d65536].End(xlUp).Row
For z = 22 To lzWks
If Wks.Cells(z, 4) = "Frankfurt" Then
Wks.Rows(z).Copy Wks1.Rows(lzWks1)
lzWks1 = lzWks1 + 1
End If
Next
End If
Next
Wks1.[A2:IV65536].Sort Key1:=Wks1.[a2], Order1:=xlAscending, Header:=xlGuess
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren wenn Bedingung erfüllt...
27.01.2004 17:09:30
fabian
und wie heist der Fehler... ??
AW: Zeilen kopieren wenn Bedingung erfüllt...
28.01.2004 17:10:02
Daniel
Sorry... hab ich vergessen! Fehler lautet:
"Laufzeitfehler '1004'
Die Copy-Methode des Range-Objekts ist fehlerhaft!"
Hoffe, jemand kennt die Lösung für mein Problem...
Vielen Dank...
Daniel
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige