Wie kann ich in Excel VBA-Code erstellen, um im Kalendarium zur ersten Woche des Jahres aus Zelle B2 zu springen und alle vorherigen Einträge ab Spalte Y zu löschen?

Um dies in Excel VBA zu erreichen, kann folgender Code verwendet werden:

```vba
Sub ClearEntriesBeforeFirstWeek()
Dim ws As Worksheet
Dim firstWeekCell As Range
Dim lastRow As Long
Dim lastCol As Long
Dim col As Long
Dim row As Long

' Set the worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' Passe den Namen des Arbeitsblatts an

' Find the first week cell in column B
Set firstWeekCell = ws.Range("B2")

' Find the last row and column in the sheet
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
lastCol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column

' Loop through each cell in column B to find the first week of the year
For row = 2 To lastRow
If IsDate(ws.Cells(row, 2).Value) Then
If DatePart("ww", ws.Cells(row, 2).Value, vbMonday, vbFirstFourDays) = 1 Then
Set firstWeekCell = ws.Cells(row, 2)
Exit For
End If
End If
Next row

' Clear entries before the first week of the year
For col = 25 To lastCol ' Spalte Y ist die 25. Spalte
For row = 2 To firstWeekCell.Row - 1
ws.Cells(row, col).ClearContents
Next row
Next col
End Sub
```

Dieser Code durchsucht die Spalte B nach dem ersten Datum, das zur ersten Woche des Jahres gehört, und löscht dann alle Einträge in den Spalten ab Spalte Y (25. Spalte) bis zur letzten Spalte vor dieser Zeile. Stelle sicher, dass der Name des Arbeitsblatts korrekt ist und passe ihn gegebenenfalls an.