Blätter einer Arbeitsmappe numerieren
02.12.2020 20:07:21
Thomas
ich bräuchte bitte nochmals Eure Hilfe.
Hatte schon mit Fennek einen guten Tweet, wir sind uns aber nicht sicher.
Es sollen in einem Workbook mit mehreren worksheets nicht die sheets "unten" im Register durchnummeriert werden, sondern die sheets sollen jeweils in einer bestimmten Zelle in den Sheets z.B B3 durchnummeriert werden.
Hier der Vorschlag, den ich im Archiv gefunden habe.
leider werden hier die Sheets mit durchnummeriert. Das will ich nicht.
Hat jemand eine Idee?
Danke und Gruß
Thomas
Sub Blaetter()
Dim b As Integer
Application.ScreenUpdating = 0
For b = 1 To 300
Sheets(b).[b3] = b
Sheets(b).Name = b
Next
Application.ScreenUpdating = -1
End
End Sub