VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
joerg

Datum:
24.06.2016 19:33:22

Views:
1130

Rating:

Antwort:

Thema:
integer in Uhrzeit

hallo,

ich würde gerne per VBA für Excel folgendes realisieren:

Es soll eine Integer-Zahl aus einer Zelle eingelesen werden - das ist die Anzahl der Stunden (anst).

Dieser Integerwert soll in einen Datumswert mit der Formatierung "hh:mm" umgewandelt werden (anstd).

Also zum Beispiel: 6 -----> 06:00 oder 7 -----> 07:00

Dieser Datumswert wird dann später zu einem anderen dazu addiert.

Also zum Beispiel: 08:00 + 06:00 = 14:00

Leider ist anstd nach dem Lauf "00:00:00"

Leider bekomme ich es nicht hin...

Für Hilfe bedanke ich mich recht herzlich im voraus !!

Gruß, jörg

Sub t()
Dim anst As Integer
Dim anstd As Date

anst = ActiveSheet.Range("f4")
anstd = CDate(anst)
anstd = Format(anstd, "hh:mm")

End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen