Tabellenblätter im Sheet umbennen
27.01.2006 11:05:11
Daniele
Eine Frage! Wo liegt mein Denkfehler?
Ich habe mir ein Makro geschrieben mit dem ich Tabellenblätter in einem Sheet ändern möchte. Macht für mich durchaus
Sinn bei einer Anzahl von 30 Tabellenblättern.
Sub NameSheets()
Dim i As Integer
Dim n As Integer
n = Worksheets.Count + 2
For i = 2 To n
Sheets(ActiveSheet.Cells(i, 1)).Name = ActiveSheet.Cells(i, 2)
Next i
End Sub
Wo liegt da mein Fehler? Es kommt immer ein Fehler 13 (Datentyp)
Vielen Dank im voraus!