ich möchte über VBA ein neues Sheet anlegen.
In dem Workbook gibt es bereits einige Sheets, die nach Datum sortiert sind.
DAs VBA soll nun in allen sheets das datum nachlesen, mit dem Datum des neu anzulegenden vergleichen und wenn bereits ein sheet mit einem höheren datum existiert das neue davor anlegen (ansonsten an das ende des workbooks)
mir gelingt es leider nicht das richtige sheet auszuwählen.
Hier mein Versuch:
Vielleicht kann mich mal jemand auf die Sprünge helfen.
Danke Euch!
David
' neues blatt anlegen und mit daten bef?llen
Sub create_worksheet(Veranstaltung As String, Datum As Date, Zeit_shop As String, Zeit_vorort As String, v_name As String, Verantwortlich As String)
Dim insert_location As String
Dim wochentag As String
' neues blatt an richtiger Stelle einf?gen
For Each ws In ActiveWorkbook.Sheets
ws.Cells(8, 4).NumberFormat = "dd.mm.yyyy"
If ws.Cells(8, 4).Value > Datum Then
insert_location = ActiveSheet.Name:
End If
Next ws
If insert_location = "" Then
Worksheets("Master").Copy After:=Sheets(Sheets.Count)
Else
Worksheets("Master").Copy Before:=Sheets(insert_location)
End If