Thema Datum  Von Nutzer Rating
Antwort
25.10.2022 13:06:18 Excelneuling
NotSolved
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
Blau Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen
26.10.2022 17:18:19 Gast91365
NotSolved

Ansicht des Beitrags:
Von:
Gast91365
Datum:
26.10.2022 17:18:19
Views:
458
Rating: Antwort:
  Ja
Thema:
Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen

Hallo Teresa

3 Wochen Rücklauf + Aktuelle

Sub EinAusblenden()
 Dim DINKW As Integer
 DINKW = DatePart("ww", Date, vbUseSystemDayOfWeek, vbUseSystem)
 If DINKW > 4 Then
  If ActiveSheet.Range(ActiveSheet.Cells(1, 3), ActiveSheet.Cells(1, 2 + DINKW - 4)).EntireColumn.Hidden = False Then
   ActiveSheet.Range(ActiveSheet.Cells(1, 3), ActiveSheet.Cells(1, 2 + DINKW - 4)).EntireColumn.Hidden = True
  Else
   ActiveSheet.Range(ActiveSheet.Cells(1, 3), ActiveSheet.Cells(1, 2 + DINKW - 4)).EntireColumn.Hidden = False
  End If
 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
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
Blau Makro zum ausblenden von Spalten mit vergangenen Kalenderwochen
26.10.2022 17:18:19 Gast91365
NotSolved