Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:36:42
Texte Zählen bzw. Anzahl zusammenzählen
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsspalten ausblenden

Datumsspalten ausblenden
22.03.2018 15:46:30
Stefan
Hallo!
Bastel nun seid 2 Tagen an einem Makro aber es klappt einfach nicht.
In Tabelle 2 steht ab G1 bis AK1 das monatliche Datum (01.03.18-31.03.18 oder 01.02.18 bis 28.02.18).
In Tabelle 1 Steht in Zelle Q2,das Startdatum und Q3 das Enddatum.
Jetzt sollen die Spalten im Tabellenblatt 2 Startdatum bis Enddatum eingeblendet bleiben und die Restlichen Datumsspalten ausgeblendet werden. Jetzt wird zusätzlich in Zelle Q4,ein Startdatum und Q5 ein Enddatum eingetragen.
Jetzt sollen die Spalten zusätzlich eingeblendet werden.
Danke Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsspalten ausblenden
22.03.2018 15:54:08
ChrisL
Hi Stefan
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet, i As Integer
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
WS2.Range("G1:AK1").EntireColumn.Hidden = True
For i = 7 To 37
If (WS2.Cells(1, i) >= WS1.Range("Q2") And WS2.Cells(1, i) = WS1.Range("Q4") And WS2.Cells(1, i)

cu
Chris
AW: Datumsspalten ausblenden
22.03.2018 16:20:45
Stefan
Danke !!!
Genau das was ich gesucht habe.
Stefan
AW: Datumsspalten ausblenden
22.03.2018 16:23:21
Klexy
Oder so: 
Sub Ausblenden()
Dim WS1 As Worksheet, WS2 As Worksheet, Zeitstrahl As Range, Tag As Range
Dim von1 As Date, bis1 As Date, von2 As Date, bis2 As Date
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Set Zeitstrahl = WS2.Range("G1:AK1")
von1 = WS1.Range("Q2")
bis1 = WS1.Range("Q3")
von2 = WS1.Range("Q4")
bis2 = WS1.Range("Q5")
Zeitstrahl.EntireColumn.Hidden = True
For Each Tag In Zeitstrahl
If Tag >= von1 And Tag = von2 And Tag

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige