A6=25.10.04 A52=25.12.04
Tabellenblatt sollte 25.10.04 bis 25.12.04 heißen.
Bis jetzt konnte es nur den Wert von Zelle A6 umbennant werden
Danke Heinz
Sub blattname_zelle()
On Error GoTo NameError
Dim MemoryText As String
Dim wks As Worksheet
MemoryText = ""
For Each wks In ThisWorkbook.Worksheets
wks.Name = wks.Range("A6")
ErrorClear:
Next wks
If MemoryText <> "" Then
MsgBox "Folgende Tabellen konnten nicht umbenannt werden: " & Chr$(13) & _
"Tabelle ; Zellwert" & Chr$(13) & MemoryText
End If
ErrorExit:
Sheets(1).Select
Exit Sub
NameError:
MemoryText = MemoryText & wks.Name & "; " & wks.Range("A6").Text & Chr$(13)
Err.Clear
Resume ErrorClear
End Sub