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."

        ' Ermittle die Startnummer durch Subtraktion von 5 von der Zahl in Zelle F1
        startNummer = ws.Range("F1").Value - 5

        ' Wenn die Startnummer kleiner oder gleich Null ist, setze sie auf 1
        If startNummer <= 0 Then
            startNummer = 1
        End If

        ' Schreibe die Nummern ab A6 bis zum Ergebnis der Subtraktion von F1 und 5
        endNummer = ws.Range("F1").Value
        For nummer = startNummer To endNummer
            ws.Cells(nummer + 5, "A").Value = nummer
        Next nummer
    Next iSheet

End Sub