Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenwerte nach Kriterien auf Arbeitsblätter verteilen

Gruppe

Kopieren

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