Gruppe
Allgemein
Bereich
Kopieren
Thema
Tabellenwerte nach Kriterien auf Arbeitsblätter verteilen
Problem
Wie kann ich in einer Tabelle enthaltene Werte nach ebenfalls in dieser Tabelle enthaltenen Kriterien auf verschiedene Arbeitsblätter verteilen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: modMain
Sub Verteilen()
Dim shAct As Worksheet
Dim intRow As Integer, intRowT As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
If Rows(intRow).Hidden = False Then
Set shAct = Worksheets(Cells(intRow, 36).Value)
intRowT = shAct.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(intRow).Copy shAct.Rows(intRowT)
End If
intRow = intRow + 1
Loop
End Sub