Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeit über InputBox abfragen, dividieren und zurückgeben

Gruppe

Zeit

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