2 Fragen zu Kalendarium

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.

Um ein Excel-Kalendarium zu erstellen, das nur Wochen und keine Tage anzeigt, kannst du die folgenden Schritte befolgen: 1. **Öffne Excel** und erstelle eine neue Arbeitsmappe. 2. **Wähle eine Zelle** aus, in der du die erste Woche beginnen möchtest (z.B. A1). 3. **Gib das Startdatum** der ersten Woche ein (z.B. 01.01.2023). 4. **Formatiere die Zelle** so, dass nur die Kalenderwoche angezeigt wird: - Rechtsklick auf die Zelle und wähle "Zellen formatieren". - Wähle die Kategorie "Benutzerdefiniert". - Gib im Feld "Typ" `KW` ein, um die Kalenderwoche anzuzeigen. 5. **Ziehe die Zelle nach unten**, um die Wochen fortlaufend anzuzeigen: - Klicke auf die untere rechte Ecke der Zelle und ziehe sie nach unten, um die Wochen fortlaufend zu füllen. 6. **Automatisiere die Wochenberechnung**: - In der Zelle unter der ersten Woche (z.B. A2) gib die Formel `=A1+7` ein, um die nächste Woche zu berechnen. - Ziehe die Formel nach unten, um die Wochen fortlaufend zu berechnen. Jetzt hast du ein Excel-Kalendarium, das nur Wochen anzeigt.