Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zurückliegende Kalenderwochen ausblenden per Makro

zurückliegende Kalenderwochen ausblenden per Makro
21.09.2004 11:26:26
Marcel
Hallo,
vielleicht kann mir hier jemand helfen.
Ich habe eine Tabelle zur Zeit- und Tätigkeitserfassung für mehrere Mitarbeiter.
Aus Datenschutz Gründen sollen die Spalten mit den zurückliegenden Kalenderwochen ausgeblendet werden. Diese immer zu markieren war mir zu aufwendig. Deshalb dachte ich an ein Makro. Ich weiss jetzt leider nicht wie ich diesem Makro beibringe, dass er nur die vergangenen Wochen ausblendet ohne das ich jede Woche das Makro umschreibe.
Für eine Hilfe wäre ich dankbar.
Gruss
Marcel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zurückliegende Kalenderwochen ausblenden per M
Reinhard
Hi Marcel,
probier mal:

Sub aus()
letzte = Worksheets("Tabelle1").Cells(1, 256).End(xlToLeft).Column
Worksheets("Tabelle1").Columns("A:" & Chr(64 + letzte - 1)).EntireColumn.Hidden = True
End Sub


Sub ein()
Worksheets("Tabelle1").Columns("A:IV").EntireColumn.Hidden = False
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige