Hallo,
xlking hat mir diesen Befehl geschrieben, funktioniert super, nur will ich den Namen ein wenig
verkürzen.
Falls nicht möglich, lasse ich es so.
Danke
Gruß
Thomas
1
|
Sheets(ActiveWorkbook.Worksheets.Count).Name = Replace(Now, ":", "|")
|
PS: Leider nimmt der Sheetname keine Doppelpunkte an, daher muss dieder mit Replace umgewandelt werden.
Gruß Mr. K.
|