ich habe in einem Arbeitsblatt in den Zellen C9 und F9 je ein Anfangsdatum und ein Enddatum stehen. Nachdem ich diese Daten manuell eingegeben habe speichere ich diese Blätter mit dem Code :
Sub test()
Dim NewTabelName As String
'Neuen TabellenName aus Zelle A1 holen und merken
NewTabelName = ActiveSheet.Range("$d$3").Value
'Tabelle kopieren und hinter der letzten Tabelle einf?gen
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'der neuen Tabelle den Name geben
Sheets(Sheets.Count).Name = NewTabelName
ActiveSheet.Select
Range("d3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
unter dem in D3 mit & zusammengeführten Namen. Das klappt auch einwandfrei.
Nun suche ich eine Möglichkeit die Arbeitsblätter beim öffenen der Datei nach Ablaufdatum ( Zelle F9) zu sortieren, damit die demnächst ablaufenden Daten gleich im Sichtbereich liegen.
Das erste Arbeitsblatt wird generell als Eingabeblatt verwendet und soll nicht verschoben werden.
Hat jemand da eine Idee ?
Dank vorab
jan