Guten Tag,
gibt es eine Möglichkeit, mit der ein Arbeitsblatt den Wert einer Zelle des Blattes (Datum) als Namen für das Blatt(statt Tabelle 1 z.B.)übernimmt?
Hallo
kopiere folgenden Code in ein Standardmodul und weise ihn dann einer Schaltfläche zu:
Sub BlattnameAusZelle()
On Error GoTo nikkesse
ActiveSheet.Name = Cells(1, 1).Value
Exit Sub
nikkesse:
MsgBox „Blatt kann nicht umbenannt werden.“ & Chr(13) & _
„Grund: leere Zelle oder Zelle mit unzulässigem Sonderzeichen wie ‚*‘ ausgewählt.“ & Chr(13) & _
„Bei Bedarf bitte manuell umbenennen.“ & Chr(13), vbInformation, „Blatt umbenennen: Hinweis“
End Sub
Der Code zur MsgBox muss in einer Zeile stehen, wird hier nicht richtig wiedergegeben.
Zeilenumburch mit " _" (Leerzeichen + Unterstrich)
MfG
Vielen Dank für die Antwort!