Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TaBl einblenden wenn Datum gefunden

Forumthread: TaBl einblenden wenn Datum gefunden

TaBl einblenden wenn Datum gefunden
25.02.2020 13:39:19
elRamin
Hallo,
habe eine Arbeitsmappe mit ca. 70 Tabellen Registern alle sind ausgeblendet außer das erste Blatt mit den Namen "Maske".
Alle anderen Tabellen haben auch Namen 12 davon die Namen Januar, Februar, März usw. In diesen Tabellenblätter sind dann die einzelnen Tage immer in Spalte B in Zeile 5. In Zeile 5 steht das Datum eingetragen in Form 01.01.2020 danach nur als Formel =B5+1 bis Monatsende.
Jetzt soll ein Makro das heutige Datum suchen in diesen versteckten Tabellen und wenn gefunden dann dieses nur wieder einblenden und zu dem ensprechenden Tag oder Datum springen.
Ich hoffe das ist machbar.
Vielen Dank
elRamin
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TaBl einblenden wenn Datum gefunden
25.02.2020 14:31:49
Werni
Hallo
Mit VBA?
Diesen Code ins Modul DieseArbeitsmappe 
Option Explicit
Private Sub Workbook_Open()
Dim Monat As String
Monat = Format(Date, "MMMM")
Sheets(Monat).Visible = True
Sheets(Monat).Select
Columns("B:B").Select
Application.FindFormat.NumberFormat = "m/d/yyyy"
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=True).Select
End Sub

Gruss Werni
Anzeige
AW: TaBl einblenden wenn Datum gefunden
25.02.2020 15:12:30
elRamin
Hallo Werni,
habe es ein wenig abgeändert, ich brauchte diese Schritte im Modul, es funktioniert.
Vielen Dank für deine Hilfe.
Grüße elRamin
dann stimmen deine Angaben nicht
25.02.2020 15:25:57
Werner
Hallo,
denn das Makro macht was es soll.
https://www.herber.de/bbs/user/135433.xlsm
Gruß Werner
Anzeige
AW: dann stimmen deine Angaben nicht
25.02.2020 15:40:17
elRamin
Hallo Werner,
du hast recht es funktioniert, vielen Dank dafür.
Gruß elRamin
Gerne u. Danke für die Rückmeldung. o.w.T.
25.02.2020 15:43:46
Werner
AW: TaBl einblenden wenn Datum gefunden
25.02.2020 14:39:59
Werner
Hallo,
With Worksheets(Format(Date, "MMMM"))
.Visible = True
.Activate
Application.Goto .Cells(Day(Date) + 4, "B"), True
End With
Gruß Werner
Anzeige
AW: TaBl einblenden wenn Datum gefunden
25.02.2020 15:19:14
elRamin
Hallo Werner,
funktionierte nicht ganz so, das Makro sprang in den richtigen Monat aber in die letzte leere Zeile von Februar. Aber nicht schlimm habe den Vorschlag von Werni genommen und klappt.
Vielen Dank für eure Mühe, Super
Grüße elRamin
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige