Ist Datum schon vorhanden?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Ist Datum schon vorhanden?
von: Horst
Geschrieben am: 14.07.2002 - 09:23:51

Hallo,

in der Spalte A stehen Datumswerte.
Über die Kalender-Steuerfunktion wähle ich ein neues Datum aus.
Wenn das Datum schon vorhanden ist, soll eine Meldung erfolgen.
Über eine Schleife krieg ich das hin, aber ist das ellegant ?
In der Herber Excel CD bin ich auf folgende Lösung gestossen,
die ich zum einen nicht ganz verstehe, die aber auch nicht funktioniert.
Danke im Voraus
Gruß Horst


Test = InputBox("Datum eingeben")

var = Application.Match(CDate(Test), Columns(1), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
MsgBox "Wert ist nicht vorhanden!"
End If


nach oben   nach unten

Re: Ist Datum schon vorhanden?
von: Hajo_Zi
Geschrieben am: 14.07.2002 - 09:38:04

Hallo Horst

Versuchs mal so


Sub te()
    Test = InputBox("Datum eingeben")
    Set Var = ActiveSheet.Columns(1).Find(CDate(Test), lookat:=xlWhole)
    If Var Is Nothing Then
        MsgBox "Wert ist nicht vorhanden!"
    Else
        MsgBox "Wert ist bereits vorhanden!"
    End If
End Sub

Gruß Hajo

nach oben   nach unten

Re: Ist Datum schon vorhanden?
von: Horst
Geschrieben am: 14.07.2002 - 09:46:32


Danke Hajo, es funktioniert.
Hab schon wieder was gelernt.
Gruß
Horst

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Ist Datum schon vorhanden?"