Office: Datum in einer Tabelle suchen

Mitchy · 17. April 2020

Hallo zusammen,

ich möchte die angehängte Tabelle nach bestimmten Daten durchsuchen und mir diese in einer Message Box anzeigen lassen.
Das Datum soll das aktuelle Jahr, der vorherige Monat sowie alle Tage dieses Monats sein.

Hier mein Code. Leider weiß ich nicht, wie ich den Parameter "alle Tage des Monats" angeben kann. Vermutlich ist DateSerial auch nicht der richtige Befehl.

Code:

Option Explicit

Sub AktuelleZinstermineFinden()

Dim WBZ10Makro As Workbook
Dim WSZinstermine As Worksheet
Dim rngBereich As Range
Dim dateVorherigerMonat As Date

Set WBZ10Makro = ThisWorkbook
Set WSZinstermine = WBZ10Makro.Worksheets("Zinstermine")
dateVorherigerMonat = DateSerial(Year(Date), Month(Date) - 1, Day(Date))

'Aktuellen Zinstermin suchen
Set rngBereich = WSZinstermine.Range("D2:R9").Find(What:=dateVorherigerMonat, LookIn:=xlValues)

If Not rngBereich Is Nothing Then
MsgBox "Folgende Zinstermine wurden gefunden: " & vbCrLf & dateVorherigerMonat

Else
MsgBox "Keine Zinstermine gefunden."
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ganz lieben Dank im Voraus für die Hilfe!

:)

ReginaR · 18. April 2020

Hi,

das könnte man so lösen:

Code:

Sub AktuelleZinstermineFinden()

Dim WBZ10Makro As Workbook
Dim WSZinstermine As Worksheet
Dim rngBereich As Range
Dim lngVorherigerMonat As Long
Dim lng_zeile As Long
Dim lng_spalte As Long
Dim str_daten As String

Set WBZ10Makro = ThisWorkbook
Set WSZinstermine = WBZ10Makro.Worksheets("Zinstermine")
lngVorherigerMonat = Month(Date) - 1

'Aktuellen Zinstermin suchen
With WSZinstermine

For lng_zeile = 2 To 9
For lng_spalte = 1 To 18
If Month(.Cells(lng_zeile, lng_spalte)) = lngVorherigerMonat Then
If str_daten "" Then
str_daten = str_daten & vbNewLine & .Cells(lng_zeile, lng_spalte)
Else
str_daten = .Cells(lng_zeile, lng_spalte)
End If
End If
Next
Next

If str_daten "" Then
MsgBox "Folgende Zinstermine wurden gefunden: " & str_daten

Else
MsgBox "Keine Zinstermine gefunden."
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mitchy · 19. April 2020

Hi Regina,

danke für deine Antwort. Jetzt werden mir aber alle Termine mit Monat März, unabhängig vom Jahr ausgegeben. Ich möchte aber immer nur die Termine aus dem aktuellen Jahr sehen.

Mitchy · 19. April 2020

Habe das jetzt wie folgt gelöst.

Code:

Option Explicit

Sub AktuelleZinstermineFinden()

Dim WBZ10Makro As Workbook
Dim WSZinstermine As Worksheet
Dim lngAktuellesJahr As Long
Dim lngVorherigerMonat As Long
Dim lngZeile As Long
Dim lngSpalte As Long
Dim strDaten As String

Set WBZ10Makro = ThisWorkbook
Set WSZinstermine = WBZ10Makro.Worksheets("Zinstermine")
lngAktuellesJahr = Year(Date)
lngVorherigerMonat = Month(Date) - 1

'Aktuellen Zinstermin suchen
With WSZinstermine
For lngZeile = 2 To 9
For lngSpalte = 1 To 18
If Year(.Cells(lngZeile, lngSpalte)) = lngAktuellesJahr And Month(.Cells(lngZeile, lngSpalte)) = lngVorherigerMonat Then
If strDaten "" Then
strDaten = strDaten & vbNewLine & .Cells(lngZeile, lngSpalte)
Else
strDaten = .Cells(lngZeile, lngSpalte)
End If
End If
Next
Next

If strDaten "" Then
MsgBox "Folgende Zinstermine wurden gefunden: " & vbCrLf & strDaten
Else
MsgBox "Es wurden keine Zinstermine gefunden."
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für die Hilfe!

R J · 19. April 2020

...wozu ein ewig langer Code mit einer nervigen Msgbox, die auch gleich wieder verschwindet, sobald man drauf klickt? Oder mertkst Du Dir alle Termine? Auch wenn es 25 oder mehr sind? *biggrin.gif*

Wesentlich einfacher, informativer und übersichtlicher ist da die bedingte Formatierung anzuwenden.

Mitchy · 6. Mai 2020

Hallo R J,

danke für den Tipp. Für meine weitere Verwendung ist es so aber besser gelöst. *Smilie

Office: Datum in einer Tabelle suchen

Datum in einer Tabelle suchen

Datum in einer Tabelle suchen

Datum in einer Tabelle suchen

Datum in einer Tabelle suchen - Similar Threads - Datum Tabelle

Tägliche automatische Verschiebung eines Rechtecks

MsgBox mit Berechnung und Eintrag in Tabelle

Zellen per Makro in Tabelle zum jeweiligen Datum kopieren

Tabelle immer ab Datum anzeigen

Tabellenübersicht aus mehreren Tabellen nach Datum sortieren

Tabelle mit Datum

eine Tabelle erstellt in der das Datum