HERBERS Excel-Forum - die Beispiele

Thema: Zeit über InputBox abfragen, dividieren und zurückgeben

Home

Gruppe

DatumZeit

Problem

Über InpuBox wird eine Zeit abgefragt und durch 4 dividiert zurückgegeben.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub ZeitTeilen()
   Dim vTime As Variant
   vTime = InputBox("Zeitangabe:", , Format(Now, "hh:mm"))
   If vTime = "" Then Exit Sub
   If IsDate(vTime) = False Then
      Beep
      MsgBox "Keine gültige Zeitangabe!"
      Exit Sub
   End If
   vTime = CDate(vTime) / 4
   MsgBox "Division durch 4:" & vbLf & Format(vTime, "hh:mm")
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Zeit

Datum + Uhrzeit aus Textbox richtig in Zelle Laufzeit ermitteln
Laufzeitfehler 438 Laufzeitfehler '13'
Akt. Datum und Uhrzeit am gedruckten Dokument VBA: UF Laufzeitfehler
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss 4 gleiche Gruppen aus 40 Zeiten/Läufern
Wandlung Connectstring für Uhrzeit Laufzeitfehler 1004: Anwendungs- oder objektorient
Laufzeitfehler 104 automatisches Starten von Makro Blatt als pdf mit Datum Uhrzeit
XLTM wird von ca. 200 Pers. gleichzeitig geöffnet Auswertung_Uhrzeiten_Schichtplan
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht gleichzeitiges Ausfüllen mehrerer Zellen
Pastespecial-Methode - Laufzeitfehler 1004 Fehler Formel Zeitberechnung
Zeiten (diff. in Monaten) berechnen Zeiterfassung
mehrere TXT Datein gleichzeitig importieren Zahlen in Form von Uhrzeit darstellen
Lange Laderzeit XLS Dokument Format Datum / Uhrzeit
Zeitermittlung zwischen zwei Datumsfeldern MSGBox Zeitraum filtern
Zeitnachweis erstellen Zeitachse normieren
Datengröße evtl Makro Zeitberechnung Laufzeitfehler beim sortieren
Code in mehreren Tabellen gleichzeitig ausführen @ Tino (in Zeitraum Suchen)
In einem Zeitraum per VBA suchen Zeitberechnung
Laufzeitfehler 9 bei Makroaufzeichnung Uhrzeit automatisch eintragen
Laufzeitberechnungsformel Extremwert eines Zeitraumes ermitteln
Funktion Dezimal -> Zeit/ Variablen-Deklaration Zeitlich gesteuerte Abrufintervalle
Uhrzeit teilen und Ergebnis in Zahl ausgeben Laufzeitfehler 1004 bei Selection.Offset
Laufzeitfehler 2147417878 Klassen/Objekte zur Laufzeit entladen
Dateneingabe mit Datum+Uhrzeit vervollständigen VBA Zeitmessen
seltsame Zeitformate Daten auslesen/Zeit unterschiedliche Länge
Zeitstrahl _ Diagramm Uhrzeitangabe auswerten (Zeitspanne)