Gruppe
Allgemein
Bereich
Kopieren
Thema
Datensätze nach zwei Kriterien in neues Blatt übernehmen
Problem
Wie kann ich Datensätze, die 2 Kriterien erfüllen, in ein zweites Tabellenblatt übernehmen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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