VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datensätze nach zwei Kriterien in neues Blatt übernehmen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren