Gruppe
Allgemein
Problem
Wie kann ich Datensätze, die 2 Kriterien erfüllen, in ein zweites Tabellenblatt übernehmen?
StandardModule: basMain
Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value >= 1000 And _
Cells(iRow, 1).Value <= 2000 And _
Cells(iRow, 2).Value = "Hose" Then
iRowT = iRowT + 1
Worksheets("Ziel").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub