Sub Nummerierung()

    Dim ws As Worksheet
    Dim iSheet As Long
    Dim lastSheet As Long
    Dim startNummer As Long
    Dim endNummer As Long
    Dim nummer As Long

    ' Bestimmen der Anzahl der Arbeitsblätter in der aktuellen Arbeitsmappe
    lastSheet = ThisWorkbook.Sheets.Count

    ' Schleife durch jedes Arbeitsblatt ab dem dritten Blatt bis zum letzten Blatt
    For iSheet = 3 To lastSheet
        ' Arbeitsblatt mit der aktuellen Schleifenummer zuweisen
        Set ws = ThisWorkbook.Sheets(iSheet)

        ' Schreibe "Nr." in Zelle A5
        ws.Range("A5").Value = "Nr."

        ' Wert von F1 minus 5 in G1 schreiben
        ws.Range("G1").Value = ws.Range("F1").Value - 5

        ' Startnummer setzen
        startNummer = 1

        ' Wenn die Startnummer kleiner als 1 ist, setze sie auf 1
        If startNummer < 1 Then
            startNummer = 1
        End If

        ' Endnummer basierend auf dem Wert in G1 setzen
        endNummer = ws.Range("G1").Value

        ' Schreibe die Nummern ab A6 bis zum Wert in G1
        For nummer = 1 To endNummer
            ws.Cells(nummer + 5, "A").Value = nummer
        Next nummer
    Next iSheet

End Sub