Thema Datum  Von Nutzer Rating
Antwort
25.10.2022 13:06:18 Excelneuling
NotSolved
Blau Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen
25.10.2022 15:38:49 Gast79257
NotSolved
25.10.2022 19:25:29 Gast19091
Solved
26.10.2022 09:29:32 Excelneuling
NotSolved
26.10.2022 14:48:21 Excelneuling
NotSolved
26.10.2022 17:18:19 Gast91365
NotSolved

Ansicht des Beitrags:
Von:
Gast79257
Datum:
25.10.2022 15:38:49
Views:
456
Rating: Antwort:
  Ja
Thema:
Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen

Hallo Teresa

Bezug auf alle Worksheets

Spalte C erste Kalenderwoche etc.

Ohne B5

Einzufügen

Alt+F11 / Projektexplorer / DieseArbeitsmappe

Speichern / Neu Öffnen

Private Sub Workbook_Open()
 Dim DINKW As Integer, Wks As Integer
 DINKW = DatePart("ww", Date, vbUseSystemDayOfWeek, vbUseSystem)
 If DINKW > 1 Then
  For Wks = 1 To Worksheets.Count
   With Worksheets(Wks)
   .Range(.Cells(1, 3), .Cells(1, 2 + DINKW - 1)).EntireColumn.Hidden = True
   End With
  Next Wks
 End If
End Sub

Gruß Michael


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.10.2022 13:06:18 Excelneuling
NotSolved
Blau Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen
25.10.2022 15:38:49 Gast79257
NotSolved
25.10.2022 19:25:29 Gast19091
Solved
26.10.2022 09:29:32 Excelneuling
NotSolved
26.10.2022 14:48:21 Excelneuling
NotSolved
26.10.2022 17:18:19 Gast91365
NotSolved