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

Forumthread: Prüfung Datum:Uhrzeit aus Textbox per VBA

Prüfung Datum:Uhrzeit aus Textbox per VBA
23.03.2016 20:55:21
Gunnard
Hallo zusammen,
ich habe bereits eine umfangreiche Suche nach meiner Lösung hinter mir, leider ohne Erfolg.
Folgendes Problem habe ich:
ich möchte einen zuvor eingegebenen Zeitpunkt (Datum und Uhrzeit) aus dem VBA-Textfeld: Me.ZeitpunktStart mit dem folgenden Format "TT.MM.JJJJ hh:mm" auslesen und prüfen.
Aktueller Prüfzeitpunkt: z.B. 23.03.2016 20:00 Uhr.
Ist der eingegebene Zeitpunkt > 22:00 Uhr (z.B. 23.03.2016 23:10) und Ich wäre euch für jegliche Unterstützung sehr dankbar!
Schöne Grüße
gunny

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
24.03.2016 08:19:10
Gunnard
... hat hierzu wirklich keiner ne Idee? So exotisch kann das doch nicht sein :)

AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
24.03.2016 08:35:32
UweD
so?

Private Sub TextBox1_Change()
Dim Diff
With TextBox1
If IsDate(.Value) Then
Diff = Format(.Value, "hh")
If Diff > 20 Or Diff 
Gruß UweD

Anzeige
AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
24.03.2016 09:12:40
Gunnard
Hallo UweD,
besten Dank für deine Mühe. Deinen Ansatz verstehe ich, bekomme es jedoch nicht eingebunden ...
Hier mein Code-Ausschnitt, vielleicht übersehe ich was:
'......
Private Sub Start_Click()
ZeitpunktStart = Now
ZeitpunktStart.SetFocus
Me.ZeitpunktStart = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

'##################################### S P E I C H E R N #####################################
Private Sub Speichern_Click()
With Sheets("Daten PAP")
'Ist der eingegebene Zeitpunkt > 22:00 Uhr (z.B. 23.03.2016 23:10) und  22 Or Diff 

Anzeige
Musterdatei?
24.03.2016 09:16:42
UweD
Damit geht es besser...

AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
24.03.2016 09:31:36
hary
Moin
So?
Private Sub Speichern_Click()
Dim wksZ As Worksheet
Set wksZ = Sheets("Daten PAP")
Dim Diff
With ZeitpunktStart
If IsDate(.Value) Then
Diff = Format(.Value, "hh")
If Diff > 22 Or Diff 

gruss hary

Anzeige
AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
26.03.2016 10:43:04
Gunnard
Hallo Hary,
vielen Dank für deine funktionierende Lösung!
Eine Kleinigkeit müsste noch ergänzt werden:
Die Prozedur fängt tatsächlichen nur die Stunden ab (da größer 22 Uhr). Meine Intention ist dass die Prozedur auch die Minuten einschließt (also größer 22:00). Sorry, ich hatte daran nicht gedacht ...
Könntest du mir das noch bitte einbauen?
Recht herzlichen Dank im Vorfeld und schöne Ostern noch
Gruß
Gunny

Anzeige
AW: Prüfung Datum:Uhrzeit aus Textbox per VBA
26.03.2016 11:24:21
Gunnard
Hallo Hary,
habe es mir einfach gemacht und habe statt größer 22 Uhr 21 Uhr genommen
Nochmals vielen Dank für deine Unterstützung!
Gruß
Gunny
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige