Zelle kopieren nach 3 Bedingungen
19.03.2015 15:43:12
Excel Sius
Guten Tag zusammen,
ich möchte die Begriffe aus Spalte1 von "Wartungsarbeiten" in die Tabelle von Sheet4 kopieren. Dabei müssen 3 Bedingungen behandelt werden. Ich kriege es nicht hin, dass nur die erste Spalte kopiert wird. Die Datei nimmt die 1. Spalte und spammt die Reihen durch bis XDF. Woran liegt das?
Hab dazu folgenden Code erstellt:
Code:
Sub Kopieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "Wöchentlich" And .Cells(Zeile, 4).Value = "Freitag" And .Cells( _
Zeile, 5).Value = "Spätschicht" Then
.Cells(Zeile,1).Copy Destination:=Tabelle5.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
mit freundlichen Grüßen