Tabelleblätter umbenennen
25.01.2004 16:53:57
SteffenS
ich brauche wieder mal Eure Hilfe.
Ich habe in einer Mappe 11 Tabelle, diese möchte ich mit Hilfe einer Liste benenennen.
Begonnen wird bei Tabelle 2, diese Tabelle soll einem Namen in einer Zelle benannt werden.
ICh habe schon mal etwas probiert:
Sub tabelle_umbenennen()
Dim m As Integer
Dim n As Integer
Dim wks As Worksheet
wks = Workbooks("xyz.xls").Sheets("Allgemein")
For n = 2 To 11
For m = 13 To 22
Sheets("???").Name = wks.Cells(m, 13).Value
Next n
Next m
End Sub
Es soll dabei immer eine Tabelle und eine Zelle weitergegangen werden.
Ich weiss leider nicht wie ich die 2. tabelle in dieser Datei umbenennen, weil ich ja ihren bisherigen namen nicht kennen, also muss ich dies übers zählen machen.
Vielleicht habt Ihr eine Idee.
Vielen Dank im Voraus
SteffenS