Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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