Tab.Blatt Name
07.11.2007 11:08:00
Heinz
Ich habe ein Makro,das mir das Tab.Blatt nach Zelle Q1 bennent.
Habe Zelle Q1 in MMM.JJ Formatiert.
Das Blatt wird aber in TT.MM.JJJJ benannt also zb. 01.08.2007
Es sollte aber auf Sep.07 benannt werden.
Könnte mir bitte,dabei jemand behilflich sein.
Gruß Heinz
Option Explicit
'-Tabellenblatt Name nach Zelle Q1 benennen
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim neuer_Blattname As String
If Target.Address = "$Q$1" Then
neuer_Blattname = Range("Q1")
ActiveSheet.Name = neuer_Blattname
End If
End Sub