Clever-Excel-Forum

Normale Version: Zeilen in Arbeitsblatt autom. auffüllen, damit eine durch 12 teilbare Anzahl entsteht

Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Seiten: 1 2

Code:
Sub M_snb()

  For Each sh In Sheets

    sh.Rows(1).Delete

    With sh.Columns(1).SpecialCells(2)

      .Resize(.Count + 12 - .Count Mod 12).SpecialCells(4) = sh.Name

    End With

  Next

End Sub

Seiten: 1 2