Zeilen kopieren wenn Bedingung erfüllt...
27.01.2004 17:06:51
Daniel
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
Anzeige