Supportnet / Forum / Tabellenkalkulation

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

moin gt,


versuchs mal mit vba.month(datum)!

ansonsten ...

more Info ..... more Help !

Greetings ;-)

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

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

• vba vergleich des zelleninhalts
• Textstring mit variablem Inhalt
• Wenn Datum kleiner dann...
• Blinkende Zelle
• Sprache in VBA abfragen : wo /wie finde ich Setup?