Gruppe
Allgemein
Bereich
Kopieren
Thema
Nur Zeilen mit bestimmtem Inhalt kopieren
Problem
Es sollen alle Zeilen in Tabelle2 kopiert werden, in denen die Zeichenfolgen "vb0" vorkommt.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Filtern()
Dim wks As Worksheet
Dim rng As Range
Dim iRow As Integer, iRowT As Integer
Application.ScreenUpdating = False
Set wks = Worksheets("Tabelle2")
Set rng = Range("A1").CurrentRegion
rng.Rows(1).Copy wks.Range("A1")
iRow = 2
iRowT = 1
Do Until IsEmpty(Cells(iRow, 1))
If WorksheetFunction.CountIf(rng.Rows(iRow), "vb0") > 0 Then
iRowT = iRowT + 1
rng.Rows(iRow).Copy wks.Cells(iRowT, 1)
End If
iRow = iRow + 1
Loop
wks.Columns.AutoFit
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub