Bedingtes Kopieren mit VBA
04.05.2015 10:07:52
Andreas
ich habe eine Liste, siehe:
Und möchte alle Zeilen die in der Spalte H ein "X" haben in ein neues Tabellenblatt kopieren. Allerdings nur die Spalten A-G der Zeile. Ich habe bisher folgenden Code geschrieben, der allerdings leider nicht funktioniert da ein Objekt fehlt oder so ähnlich.
Sub ZeilenKopieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Datentabelle
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To 50
If .Cells(Zeile, 8).Value = "X" Then
.Rows(Zeile).Copy Destination:=Tabelle1.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Gruß Andreas