VBA - Länge des Blattnamens
16.04.2017 19:39:52
WalterK
Mit dem folgenden Codeteil wird ein Blatt kopiert, der neue Blattname setzt sich aus dem alten Blattnamen und dem Teil Format(Now(), "ddMMyyyy hhmmss zusammen.
Allerdings darf insgesamt die Länge des Blattnamens höchstens 31 betragen.
Sollte eine Kürzung erforderlich sein, soll sie auf keinen Fall beim Teil Format(Now(), "ddMMyyyy hhmmss erfolgen, sondern beim Teil davor.
Wie mache ich das? Bitte um Hilfe.
Dim NeuerName As String
NeuerName = wksTab.Name & Format(Now(), "ddMMyyyy hhmmss")
Set objWs = ThisWorkbook
Set objSh = wksTab
With objWs
objSh.Copy after:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = NeuerName 'Format(Now(), "ddMMyyyy hhmmss")
End With