Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

VBA - Zelle abfragen nach Datum





Frage

Hallo an alle die mir helfen können und wollen!!! Ich arbeite in VBA und mein Problem besteht darin, dass ich eine Zelle mit einem Datum habe, dass ich abfragen möchte. Wäre aber halb so schlimm wenn ich nur das heutige Datum (mit dem Befehl: Date) abfragen müsste! NEIN...ich bräuchte eine Anweisung um ein Datum des heutigen Tages und des gesamten Monats abzufragen!!! Kann mir dabei jemand behilflich sein? Danke im Voraus, mfg gt

Antwort 1 von Coolpix

moin gt,


versuchs mal mit vba.month(datum)!

ansonsten ...

more Info ..... more Help !

Greetings ;-)

Antwort 2 von nighty

hi gt :)

zwei beispiele einer datumssuche :)

gruss nighty

Sub suchen1()
Dim rgBereich As Range
Dim SucheNach
Dim zeichen1 As Range
such1 = Month("07.08.2004")
Rem alternativ eine inputbox
Rem such1 = Month(InputBox("Datumt eingeben"))
Set rgBereich = Worksheets("Tabelle1").Range("E1:E3")
For Each zeichen1 In rgBereich
If zeichen1.Value = such1 Then
zeichen1.Select
Exit For
End If
Next zeichen1
End Sub



Sub suchen2()
With Worksheets("Tabelle1")
such1 = Month("07.08.2004")
Rem alternativ eine inputbox
Rem such1 = Month(InputBox("Datumt eingeben"))
Set c = Worksheets(1).Range("a1:iv65000").Find(such1, LookIn:=xlValues)
If Not c Is Nothing Then
Range(c.Address).Select
End If
End With
End Sub


Antwort 3 von nighty

hi gt :)

wie immer :)

korrigiert :))

gruss nighty

Option Explicit
Sub suchen1()
Dim rgBereich As Range
Dim such1
Dim zeichen1 As Range
such1 = Month("07.08.2004")
Rem alternativ eine inputbox
Rem such1 = Month(InputBox("Datumt eingeben"))
Set rgBereich = Worksheets("Tabelle1").Range("E1:E3")
For Each zeichen1 In rgBereich
If zeichen1.Value = such1 Then
zeichen1.Select
Exit For
End If
Next zeichen1
End Sub


Sub suchen2()
Dim such1
Dim suche2 As Range
With Worksheets("Tabelle1")
such1 = Month("07.08.2004")
Rem alternativ eine inputbox
Rem such1 = Month(InputBox("Datumt eingeben"))
Set suche2 = Worksheets(1).Range("a1:iv65000").Find(such1, LookIn:=xlValues)
If Not suche2 Is Nothing Then
Range(suche2.Address).Select
End If
End With
End Sub


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: