Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Uhrzeit rechnen VBA

Uhrzeit rechnen VBA
06.03.2008 13:43:37
Petra
Hallo an alle
wie lautet der VBA Code für:
Gesamtzeit = 9 * 1Min 30 Sek
ich möchte diese Gesamtzeit in einem Userform-Label anzeigen
Vielen heißen Dank für die Unterstützung
Petra

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit rechnen VBA
06.03.2008 13:52:00
mumpel
Hallo!
Nimm den Umweg über nicht benutzte Zellen. In den Zellen schreibst Du die Zeit und den Multiplikator. Den Wert aus der Ergebniszelle liest Du dann beim Öffnen der Userform ein.

Private Sub Userform_Initialize()
Label1.Caption = ThisWorkbook.Sheets("Tabelle2").Range("A1").Value
End Sub


Gruß, Rene

Anzeige
AW: Uhrzeit rechnen VBA
06.03.2008 14:04:10
Mag
Hi,
hilft Dir das:

Sub nnn()
Dim dblZahl As Double
dblZahl = 9 * (1 / (24# * 60) + 30 / (24# * 60 * 60))
MsgBox dblZahl
MsgBox Format(dblZahl, "hh:mm:ss")
End Sub


Gruss

AW: Uhrzeit rechnen VBA
06.03.2008 14:07:00
Mag
... alternativ:

Sub nnn()
Dim ddd As Date
ddd = 9 * (1 / (24# * 60) + 30 / (24# * 60 * 60))
MsgBox ddd
End Sub


Gruss

Anzeige
AW: Uhrzeit rechnen VBA
06.03.2008 14:07:55
Petra
Hallo Mag
danke, das war es!!
Einen schönen Tag noch
Petra

AW: Uhrzeit rechnen VBA
06.03.2008 14:04:20
Petra
Hi Rene
ich ermittle die "9" schon beim initialisieren der UF per VBA. Dann möchte ich den ermittelten Faktor mit 1Min30Sek multiplizieren und diese Gesamtzeit im Label (mit Uhrzeitformat) anzeigen. Den Umweg über eine Tabellenzelle kann ich nicht nehmen.
Vielleicht weißt Du Rat?
Einen schönen Nachmittag wünscht Petra
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Uhrzeit Berechnen mit VBA in Excel


Schritt-für-Schritt-Anleitung

  1. Vorbereitung: Öffne Excel und erstelle ein neues VBA-Modul. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Userform erstellen: Füge eine Userform hinzu, in der Du die Gesamtzeit anzeigen möchtest. Platziere ein Label (z.B. Label1) auf der Userform.

  3. VBA Code einfügen: Kopiere und füge den folgenden VBA-Code in das Userform-Modul ein:

    Private Sub Userform_Initialize()
       Dim Gesamtzeit As Double
       Gesamtzeit = 9 * (1 / (24# * 60) + 30 / (24# * 60 * 60)) ' 9 Minuten und 30 Sekunden
       Label1.Caption = Format(Gesamtzeit, "hh:mm:ss") ' Zeitformatierung
    End Sub
  4. Userform ausführen: Schließe den VBA-Editor und führe die Userform aus, um die berechnete Zeit anzuzeigen.


Häufige Fehler und Lösungen

  • Fehler: Label zeigt 0:00:00 an.

    • Lösung: Überprüfe, ob der Code korrekt in die Userform_Initialize-Prozedur eingefügt wurde.
  • Fehler: VBA läuft nicht oder gibt einen Fehler aus.

    • Lösung: Stelle sicher, dass Du die richtigen Variablen-Typen verwendest (z.B. Double oder Date).

Alternative Methoden

Eine alternative Methode, um mit Uhrzeiten in Excel zu rechnen, ist die Verwendung von Zellen anstelle von VBA. Hier ein Beispiel:

  1. In Zelle A1: 1:30 (1 Minute 30 Sekunden).
  2. In Zelle A2: 9.
  3. In Zelle A3: =A1 * A2 (Berechnung der Gesamtzeit).
  4. Formatiere Zelle A3 als Uhrzeit.

Diese Methode ist nützlich, wenn Du nicht mit VBA arbeiten möchtest.


Praktische Beispiele

Hier ist ein weiteres Beispiel, wie Du mit Zeitdifferenzen in VBA umgehen kannst:

Sub ZeitDifferenzBerechnen()
    Dim Startzeit As Date
    Dim Endzeit As Date
    Dim Differenz As Double

    Startzeit = #8:00:00 AM#
    Endzeit = #10:30:00 AM#
    Differenz = Endzeit - Startzeit

    MsgBox "Die Zeitdifferenz beträgt: " & Format(Differenz, "hh:mm:ss")
End Sub

Führe diesen Code aus, um die Zeitdifferenz zwischen zwei Uhrzeiten zu berechnen.


Tipps für Profis

  • Nutze die DateDiff-Funktion, um die Zeitdifferenz in verschiedenen Einheiten zu berechnen, z.B. in Minuten oder Stunden.
  • Experimentiere mit verschiedenen Zeitformaten in Excel, um die Anzeige der Uhrzeiten anzupassen.
  • Verwende benutzerdefinierte Formate, um spezifische Anforderungen zu erfüllen, wie z.B. hh:mm oder hh:mm:ss.

FAQ: Häufige Fragen

1. Frage
Wie kann ich mit Uhrzeit in Excel rechnen, ohne VBA zu verwenden?
Antwort: Du kannst einfach Zeiten in Zellen eingeben und mit normalen Formeln rechnen. Beispiel: =A1 + A2 für die Addition von Zeiten.

2. Frage
Was ist der Unterschied zwischen Double und Date in VBA?
Antwort: Double wird für numerische Berechnungen verwendet, während Date für die Speicherung von Datum und Zeit geeignet ist.

3. Frage
Kann ich auch negative Zeitdifferenzen in VBA berechnen?
Antwort: Ja, Du kannst negative Zeitdifferenzen berechnen, indem Du einfach eine frühere Uhrzeit von einer späteren abziehst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige