AW: Tabellenblätter
18.05.2006 12:00:19
Harald
Hi Micha,
das wäre ne Möglichkeit (Array deinen Wünschen anpassen)
Sub benennen()
Dim i As Integer, blattname As String
i = 1
For Each blattname In Array("Montag", "Dienstag", "Mittwoch")
Sheets(i).Name = blattname
i = i + 1
Next blattname
End Sub
oder mit einer Schleife
Im Bsp. stehen die versch. Blattnamen im Blatt 1 ab Zelle A1 untereinander
also Sheets(1).cells(i, 1)
Sub benennenA()
Dim i As Integer
For i = 1 To Sheets.Count 'erstes bis letztes Blatt
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub
Gruss Harald