Office: Zeit >24h & VBA

SeNf · 4. Dezember 2014

Moin
ich möchte in VBA mit Zeit rechnen, also zb in zelle A1 steht 135:30:00 oder 5,645... (zelle formatiert mit [h]:mm:ss)
jetzt auslesen mit VBA: format(range("A1"), "[h]:mm:ss")
das klappt aber so in VBA nicht...

hat jemand eine idee wie ich die 135:30:00 darstellen kann?

Gruß
Steffen

:)

Beverly · 6. Dezember 2014

Hi Steffen,

was willst du denn rechnen? Das Format der Zelle ist doch unwichtig dafür, denn Excel rechnet mit dem Zahlenwert und nicht mit dem Format.

SeNf · 6. Dezember 2014

Hi Karin,
eigentlich möchte ich das nur in ein textfeld schreiben zb. 100h + 24h sollte dann 124h ausgeben, dem geht aber leider nicht, nein falsch, geht bestimmt nur ich checks nicht ;-)
gruß
Steffen

Backowe · 6. Dezember 2014

Hi Steffen,

Code:

GMG-CC · 6. Dezember 2014

Moin Steffen,

hier zwei mögliche Lösungen (die zu summierenden Zeiten sind markiert):
Code:

Option Explicit

Sub StundenInTextbox()
Dim Tage As Integer, Stunden As Integer
Dim Minuten As Integer, Sekunden As Integer
Dim ZeitSumme As Date

ZeitSumme = WorksheetFunction.Sum(Selection)
Tage = Int(ZeitSumme)
Stunden = Hour(ZeitSumme)
Minuten = Minute(ZeitSumme)
Sekunden = Second(ZeitSumme)
MsgBox Tage * 24 + Stunden & ":" & Format(Minuten, "00") & ":" & Format(Sekunden, "00") & "h"
End Sub

Sub KurzFormZeitAddition()
Dim GesZeit As Date

GesZeit = WorksheetFunction.Sum(Selection)
MsgBox Int(GesZeit) * 24 + Hour(GesZeit) & ":" & Format(Minute(GesZeit), "00") & ":" & Format(Second(GesZeit), "00h")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 7. Dezember 2014

Hi Steffen,

da du zur vorhandenen Zeit etwas addieren willst (Uhrzeit steht in A1, zu addierende Stundenzahl in B1) :

Code:

' Uhrzeit + zu addierende Stundenanzahl als Dezimalzahl in TextBox schreiben
TextBox1 = (Range("A1") + Range("B1") / 24) * 24
' Dezimalzahl als Uhrzeit > 24h formatieren
TextBox1 = Format(Int(TextBox1), "00") & ":" & Right(Format((TextBox1 / 24), "hh:mm"), 2) & ":" & _
Right(Format((TextBox1 / 24), "hh:mm:ss"), 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

SeNf · 7. Dezember 2014

ok danke euch dreien, werd ich später verproben...
antwort folgt...
aber sehe ich das richtig das VBA das format "[h]:mm" nicht verabeiten kann?
Gruß
Steffen

SeNf · 7. Dezember 2014

\@Karin,
funktioniert leider nicht, wenn ich zu A1 = 100:00:00 (format in excel:[h]:mm:ss) stunden A2 = 30:00:00 dazu addiere bekomme ich in VBA 04:00:00 zurück, in der tabelle passt das da sinds dann 130:00:00
auch alleine die 100:00:00 so einzulesen in VBA schaffe ich nicht...
aber noch 2 vorschläge übrig also ran ans werk...
Gruß

SeNf · 7. Dezember 2014

\@ Günther & Jürgen
funktioniert wie ich mir das vorgestellt habe, sehr schön
danke euch allen!
Gruß
Steffen

Beverly · 7. Dezember 2014

Hi,

kein Problem - wenn die zu addierende Zeit als Uhrzeit in der Zelle steht, dann so:

Code:

TextBox1 = (Range("A1") + Range("A1")) * 24
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Zeit >24h & VBA

Zeit >24h & VBA

Zeit >24h & VBA

Zeit >24h & VBA

Zeit >24h & VBA

Zeit >24h & VBA - Similar Threads - Zeit >24h VBA

Industriezeit in normale Zeit

Zeit an dem mehrere Arbeitsplätze belegt sind

Zeiten wie berechnen

Daten aus anderer Tabelle zwischen Zeiten einfügen (Office 365)

Uhrzeit subtrahieren bei mehr als 24h

Problem wenn Summe der Zeit 24h

In Abfrage Uhrzeitzeit als Zeit,24h - nicht als STRING ausge