Filter-Kopier-Makro erweitern
TCO99
ich habe ein Makro, welches ich nicht alleine angepasst bekomme:
Public Sub ZeilenFiltern()
Dim WSQ As Worksheet
Dim WSZ As Worksheet
Set WSQ = Worksheets("Quelle") 'Anpassen, woher die Daten kommen sollen
Set WSZ = Worksheets("Ziel") 'Anpassen, wohin die Daten kopiert werden sollen
Dim i As Integer
Dim cell As Range
i = 1
For Each cell In WSQ.Range("A1:A100")
If Not cell Is Nothing Then
If cell.Value = "Meier" Then
cell.EntireRow.Copy Destination:=WSZ.Cells(i, 1)
i = i + 1
End If
End If
Next cell
End Sub
Was ich brauche ist, dass nicht nur in der Spalte A nach einem bestimmten Begriff (Meier) gesucht wird, sondern auch in der Spalte B nach dem Begriff "Kunde" und z.B. in der Spalte X nach dem Begriff " bezahlt".
Oder mit anderen Worten: wie kann ich das Makro anpassen, damit ich zu zu kopierenden Daten besser filtern, dass heißt auf mehr als eine Spalte untersuchen kann?
Ich habe zwar einige Versuche gemacht, jedoch gelang es nicht. Z.B. habe ich es so versucht:
Dim i As Integer
Dim cell As Range
Dim cell2 As Range
i = 1
For Each cell In WSQ.Range("A1:A100") And For Each cell2 In WSQ.Range("B1:B100")
If Not cell Is Nothing Then
If cell.Value = "Meier" And Cell2.Value = "Kunde" Then
cell.EntireRow.Copy Destination:=WSZ.Cells(i, 1)
i = i + 1
End If
End If
Next cell
Gruß
Erdogan
PS: Feedback ist selbstverständlich.