Vergleich in IF-THEN in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Vergleich in IF-THEN in VBA
von: Peter
Geschrieben am: 06.07.2002 - 16:03:15

Hallo zusammen an diesem schönen Nachmittag,

beim Basteln an einer Arbeitsmappe stecke ich fest und hoffe auf Euer Know-How.

In einer User-Form wird über ein ComboBox ein Datum ausgewählt (Format: DD.MM.YYYY).
Zu diesem Datum sollen dann in der User-Form Informationen aus einem Tabellenblatt dargestellt werden. Dazu suche ich eine Spalte in diesem Tabellenblatt ab und wenn das Datum dort gefunden wurde, dann werden die entsprechenden Werte aus dem Tabellenblatt in die User-Form geschrieben (in Textboxen).

Das Suchen läut über dieses Code-Stück:

Datum = ComboBox1.Value

Sheets("Daten").Select
Zeile = 3
Merker = 0

Do Until IsEmpty(Cells(Zeile, 1))
If (Datum = Worksheets("Daten").Cells(Zeile, 1).Value) Then
Merker = 1
Exit Do
End If
Zeile = Zeile + 1
Loop

Und obwohl es eine Entsprechung gibt, so wird sie nicht gefunden.

Sieht jemand von Euch, wo ich etwas übersehe ?

Vielen Dank für Eure Hilfe und noch ein schönes Wochenende.

Gruß
Peter

nach oben   nach unten

Re: Vergleich in IF-THEN in VBA
von: thomas
Geschrieben am: 06.07.2002 - 16:21:07

hallo peter,

versuch's mal so:

Datum = DateValue(ComboBox1.Value)

gruß thomas

nach oben   nach unten

Re: Vergleich in IF-THEN in VBA
von: Peter
Geschrieben am: 06.07.2002 - 16:23:17

Hallo Thomas,

hab's versucht - der Samstag ist gerettet.

Vielen Dank und viele Grüße
Peter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Vergleich in IF-THEN in VBA"