Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Loop mit Datumserkennung

Forumthread: Loop mit Datumserkennung

Loop mit Datumserkennung
05.04.2021 14:15:17
Thomas
Geschätzte Forumsmitglieder,
Ich bekomme regelmässig einen Datensatz mit mehr als 2000 Zeilen welchen ich für meine Arbeit gerne eingrenzen möchte.
Der Datensatz enthält in der Spalte A ein Datum und in den restlichen Spalten weitere Daten. Problematisch ist aber das der Datensatz in in mehrere Kategorien unterteilt ist. Diese Kategorien sind durch eine leere Zeile und anschliessend deren Bezeichnung (auch in Spalte A) dargestellt. Die Bezeichnung wird benötigt damit mit den Daten gearbeitet werden kann und muss vorhanden bleiben.
Nun würde ich gerne ein Makro erstellen bei welchem ich via Userform ein Datum eingeben kann. Jetzt sollen alle Zeilen bei welchem das Datum jünger als das eingegebene Datum aus dem Userform ist ausgeblendet werden. Dabei sollen aber die Bezeichnungen der Kategorien stehen bleiben.
Ich denke da an einen Loop welcher die Spalte A durchläuft und prüft ob sich darin ein Datum befinden. Falls ja prüfen ob jünger als das eingegebene Datum im Userform, falls ja spalte Ausblenden.
Besten Dank für Eure Bemühungen und einen schönen Tag noch!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Loop mit Datumserkennung
05.04.2021 14:22:00
Nepumuk
Hallo Thomas,
lade mal eine Mustermappe mit ein paar Beispieldaten hoch.
Gruß
Nepumuk
AW: Loop mit Datumserkennung
05.04.2021 17:19:41
GerdL
Hallo Thomas,
setze neben einer Textbox noch einen Button auf das Unseform. 
Private Sub CommandButton1_Click()
Dim x As Date, y As Date, zeile As Long
If Not IsDate(TextBox1.Text) Then
MsgBox "Kein Datum!"
Exit Sub
End If
x = CDate(TextBox1.Text)
For zeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsDate(Cells(zeile, 1).Text) Then y = Cells(zeile, 1)
Rows(zeile).Hidden = y

Gruß Gerd
Anzeige
AW: Loop mit Datumserkennung
05.04.2021 18:31:44
Thomas
Hallo Gerd,
Deine Lösung hat Fehlerfrei funktioniert.
Vielen Dank!
;

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