Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zeit in Combobox anzeigen

139 views
Skip to first unread message

Manuel Keller

unread,
Sep 4, 2002, 4:22:23 PM9/4/02
to
Hallo,
wie kann ich aus einer Zelle die als Uhrzeit formatiert ist die Zeit in
einer Combobox (C2) anzeigen?
Zellen die als Standard formatiert sind kann ich so auslesen:
z.B.
C2.Text = Worksheets(Wo1).Cells(AktSpalte, 213).Value

Funktioniert allerdings mit der Uhrzeit nicht.

Habs auch mit CDate probiert klappt auch nicht.Bekomme nur ein 00:00:00
zurück, obwohl in der entsprechenden
Zelle 100% z.B. 18:00 steht. C2.Value=
CDate(Worksheets(Wo1).Cells(AktSpalte, 213).Value)

Bin für jeden Tip dankbar

Mfg

Manuel Keller


Dr. Eckehard Pfeifer

unread,
Sep 4, 2002, 4:37:23 PM9/4/02
to
Hallo, nutze etwas wie

ComboBox1.Text = Format(Tabelle1.Range("a1"), "hh:mm")

--
MfG Eckehard Pfeifer

www.dr-e-pfeifer.de


Manuel Keller

unread,
Sep 4, 2002, 5:31:28 PM9/4/02
to
Hallo Eckehard,
danke für den Tip, so funktioniert es zwar, aber ich müßte meine ganzen
Funktionen umbauen da
ich für Spalten,Zeilen und Tabellennamen globale Variablen verwende die ich
in diesem Konstrukt so nicht
einsetzen kann.

> ComboBox1.Text = Format(Tabelle1.Range("a1"), "hh:mm")

^^^^ ^^
C2.Text = Worksheets(Wo1).Cells(AktSpalte, 213).Value
^^^ ^^^^^^^^^^^^
Mit allen anderen Werten in den Zellen funktioniert mein Code, nur bei
Uhrzeiten nicht.

Gibt es vielleicht eine andere Lösung, oder muß ich jetzt an's Eingemachte
und alles umbauen? :-((

Mfg

Manuel Keller


Dr. Eckehard Pfeifer

unread,
Sep 5, 2002, 1:30:23 AM9/5/02
to
Wieso umbauen? Du musst doch nur statt value die Funktion Format davor
setzen:
Format(value,"hh:mm")
EP


Manuel Keller

unread,
Sep 5, 2002, 12:47:32 PM9/5/02
to
Hallo Eckehard,
hab den Fehler gefunden, man sollte eben Zeile und Spalte nicht
verwechseln..... dann bekommt man auch
den entsprechenden Wert zurück, der dann auch mit Format gewandelt wird.

C2.Text = Format(Worksheets(Wo1).Cells(AktSpalte, 213).Value,"hh:mm")

^^^^^^^^^^^^

Danke

Mfg

Manuel Keller

0 new messages