Automatische Nummerierung der Tabellenblätter
15.05.2015 12:11:58
Rei
Leider bring ich es nicht hin, in meiner Excel Tabelle nur die markierten Register mit dem folgendem VBA zu nummerieren.
Option Explicit
Sub t()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Name = "Blatt " & i
Next i
End Sub
Weiss hier jemand einen Lösungsansatz? Probierte mit folgenden Zeilen was zu basteln, was mir aber nicht gelungen ist
Dim objSheet As Worksheet
For Each objSheet In ActiveWindow.SelectedSheets
Besten Dank im Voraus für eure Hilfe
Rei
Anzeige