Sortierung Sheets per VBA
26.07.2021 14:23:03
Eve
ONUR hat hier im Forum einen Code eingebracht, mit dem man Sheets, die nach Datum benannt sind, nach dem Datum sortieren kann. Wie verhält sich das bei Tabellenblättern, die neben den Datumsbennenungen auch andere Benennungen haben (zB Daten). Derzeit werden diese an das Ende angehängt.
Besteht die Möglichkeit den Code dahingehend abzuändern, dass man diese Blätter an den Anfang sortiert uind erst danach die Datumsblätter anhängt?
Option Explicit
Public Sub SheetSort()
Dim anz, n, min, v, mi, x
anz = ThisWorkbook.Sheets.Count
For x = 1 To anz
min = 99999
For n = x To anz
If IsDate(Sheets(n).Name) Then
v = CLng(CDate(Sheets(n).Name))
If v