Anzeige
Archiv - Navigation
1796to1800
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

Uhrzeit in UserForm prüfen

Uhrzeit in UserForm prüfen
10.12.2020 10:12:26
Mausklicker
Hallo, ich möchte in einer For-Schleife einer UserForm die Uhrzeit auf z.B. 08:00 prüfen und dann ggf. die Daten umspeichern.
Habe schon einiges versucht, aber leider ohne Erfolg.
z.B. mit folgendem VBA-Code:
Dim Zeit As String
For Zeilen_Nr = 4 To letzte_belegte_Zeilen_Nr
Zeit = Sheets("Folgemessungen").Range("B" & Zeilen_Nr).Value("HH:MM")
If Zeit = "08:00" Then
Sheets("Folgemessungen").Range("F" & Zeilen_Nr).Value = _
Sheets("Folgemessungen").Range("A" & Zeilen_Nr).Value
End If
Next Zeilen_Nr

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

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit in UserForm prüfen
10.12.2020 10:19:15
Mausklicker
Sorry, habe ganz vergessen, mich schon vorab für die Hilfe zu bedanken.
Vielen Dank im Voraus
Gruß
AW: Uhrzeit in UserForm prüfen
10.12.2020 10:37:20
Matthias
Hallo
Gib das Format korrekt mit:
bspw. so: In der Zelle steht 08:00:00

Dim zeit$
zeit = Range("B2").Value
If Format(zeit, "hh:mm") = "08:00" Then MsgBox Format(zeit, "hh:mm")
Range musst Du wieder anpassen.
Gruß Matthias
AW: Uhrzeit in UserForm prüfen
10.12.2020 13:42:09
Mausklicker
Hallo,
ich habe auch deine Variante ausprobiert.
Funktioniert auch sehr gut.
Vielen Dank für die schnelle Hilfe.
VG Horst
AW: Uhrzeit in UserForm prüfen
10.12.2020 11:45:51
Daniel
Hi
Zeit = Sheets("Folgemessungen").Range("B" & Zeilen_Nr).Text
Vorausgesetzt, die Zelle ist als Uhrzeit formatiert.
Gruß Daniel
Anzeige
AW: Uhrzeit in UserForm prüfen
10.12.2020 13:40:39
Mausklicker
Hallo,
habe es ausprobiert, hat prima funktioniert.
Vielen Dank für die schnelle Hilfe.
VG Horst

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige