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
hallo peter,
versuch's mal so:
Datum = DateValue(ComboBox1.Value)
gruß thomas
Hallo Thomas,
hab's versucht - der Samstag ist gerettet.
Vielen Dank und viele Grüße
Peter
Das Archiv des Excel-Forums
