Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeitformat?

Zeitformat?
11.11.2016 20:25:10
Bernd
Hallo liebe Gemeinde,
folgender Code:
Sub einstempeln()
Dim zeit As String
zeit = Right(Now(), 8)
If zeit 
Bei If zeit Könnt ihr mir da bitte weiterhelfen.
Vielen Dank
Beste Grüße Bernd

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeitformat?
11.11.2016 20:36:03
Nepumuk
Hallo,
du vergleichst einen String mit einer Dezimalzahl da knirscht es.
Test mal:
Option Explicit

Public Sub einstempeln()
    With Range("H1")
        If Time < TimeSerial(21, 0, 0) Then
            .Value = TimeSerial(21, 0, 0)
        Else
            .Value = Time
        End If
        .NumberFormat = "hh:mm:ss"
    End With
End Sub

Gruß
Nepumuk
Anzeige
Danke Nepumuk für den Ansatz :-) o.w.t.
11.11.2016 21:02:50
Bernd
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige