Wüßte gerne wie ich über ein Makro alle Blätter in einer Mappe nach Datum aufsteigend benennen kann.
Zum Beispiel 01.01.2005 bis 31.12.2005, sprich 365 Blätter in der Mappe.
Über spontane Hilfe würde ich mich sehr freuen.
Gruß Patric
Sub Blätter_benennen()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = Format(CDate(38352 + i))
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen