Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
356to360
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datums- und Zeitprüfung

Datums- und Zeitprüfung
28.12.2003 16:12:31
Günther Nebel
Hallo Forum!

Vorab allen, die mir dieses Jahr halfen etwas mehr Wissen über Excel zu
erlangen, schöne Weihnachten und guten Rutsch. Dies gilt natürlichen allen
Forumsteilnehmern.
Und damit es nicht langweilig wird....

In der unten aufgeführten Userform habe ich in Textbox1 und Textbox4 jeweils
eine Datumseingabe und in Textbox8 und Textbox9 eine Uhrzeiteingabe.

FRAGE:
Wie kann ich erreichen, daß bei der Eingabe zwingend ein 8-stelliges Datum
(23.12.03) und die Uhrzeit mit Doppelpunkt (13:45) geprüft wird, bzw.
umgewandelt wird.
Und ist es generell möglich eine Abfrage zu erstellen, die prüft, ob alle
Textboxen befüllt wurden, bevor der Speichern-Button gedrückt werden kann?


Private Sub CommandButton2_Click()
'Daten speichern
Dim frm As UserForm
Dim TextBox1 As Date
Set frm = UserForm1
Sheets("Transportdaten").Activate
ActiveSheet.Unprotect password:="transporT"
Range("A65536").End(xlUp).Offset(1, 0).Select
'Unload.UserForm1
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value ' siehe Textbox1
ActiveCell.Offset(0, 5).Value = .TextBox5.Value
ActiveCell.Offset(0, 6).Value = .TextBox6.Value
ActiveCell.Offset(0, 7).Value = .TextBox7.Value
ActiveCell.Offset(0, 8).Value = .TextBox8.Value 'die Zeit soll geprüft
werden, ob mit Doppelpunkt erfasst wurde
ActiveCell.Offset(0, 9).Value = .TextBox9.Value ' siehe Textbox8
ActiveCell.Offset(0, 10).Value = .TextBox10.Value
ActiveCell.Offset(0, 11).Value = .TextBox11.Value
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 4).Value = "Maier"
Else
If .OptionButton2.Value = True Then
ActiveCell.Offset(0, 4).Value = "Huber"
Else
If .OptionButton3.Value = True Then
ActiveCell.Offset(0, 4).Value = "Selb"
Else
If .OptionButton4.Value = True Then
ActiveCell.Offset(0, 4).Value = "Achatz"
Else
If .OptionButton5.Value = True Then
ActiveCell.Offset(0, 4).Value = "Gruber"
End If
End If
End If
End If
End If
.TextBox1.Value = ""
.TextBox2.Value = ""
.OptionButton1 = False
.OptionButton2 = False
.OptionButton3 = False
.OptionButton4 = False
.OptionButton5 = False
.TextBox3.Value = ""
.TextBox4.Value = ""
.TextBox5.Value = ""
.TextBox6.Value = ""
.TextBox7.Value = ""
.TextBox8.Value = ""
.TextBox9.Value = ""
.TextBox10.Value = ""
.TextBox11.Value = ""
End With
ActiveSheet.Protect password:="transporT"
Sheets("Transportstartseite").Activate
UserForm1.Hide
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datums- und Zeitprüfung
28.12.2003 16:18:02
Hajo_Zi
Hallo Günther

für das Datum habe ich mal einen Code entwickelt.

Option Explicit
Dim BoEnter As Boolean


Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   erstellt von Hajo.ziplies@web.de  Stand 01.08.03
'   Datumseingabe  01.01.03;1.1.03 oder komlettes Jahr
'   Eingabe des Tages und des Monat zweistellig werden die Punkte automatisch gesetzt
'   sie können nur gelöscht durch markierung des punktes und der Zahl davor
'   Buchstaben werden ausgeschlossen, nur Zahlen und Punkt
'   die Überprüfung ob Datum erfolgt in 


Private Sub TextBox6_AfterUpdate()
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If Len(TextBox6) = 0 Then
KeyAscii = 0
Else
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) = 2 Then
KeyAscii = 0
ElseIf Len(TextBox6) > 1 Then
If Mid(TextBox6, Len(TextBox6), 1) = "." Then KeyAscii = 0
Else
KeyAscii = Asc(".")
End If
End If
Case Else
KeyAscii = 0
End Select
End Sub







Private Sub TextBox6_Change()
If BoEnter = True Then Exit Sub
If Len(TextBox6) = 2 Then
If InStr(TextBox6, ".") = 0 And BoEnter = False Then TextBox6 = TextBox6 & "."
ElseIf Len(TextBox6) = 5 Then
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) < 2 Then
TextBox6 = TextBox6 & "."
End If
End If
End Sub







Private Sub TextBox6_AfterUpdate()
BoEnter = True
If Right(TextBox6, 1) = "." Then TextBox6 = Mid(TextBox6, 1, Len(TextBox6) - 1)
'   Jahreszahl vom aktuellen Jahr ergänzen falls nicht vorhanden
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) = 1 Then
TextBox6 = TextBox6 & "." & Year(Date)
End If
If IsDate(TextBox6.Text) Then
If Format(CDate(TextBox6.Value), "dd.mm.yy") <> TextBox6 Then
MsgBox "Das Datum wurde übersetzt"
End If
TextBox6 = Format(CDate(TextBox6.Value), "dd.mm.yy")
Else
TextBox6 = ""
End If
BoEnter = False
End Sub





Bitte keine Mail, Probleme sollten im Forum gelöst werden.



Microsoft MVP für Excel



Das Forum lebt auch von den Rückmeldungen.

Betriebssystem XP Pro und Excel Version XP Pro
Anzeige
AW: Datums- und Zeitprüfung
28.12.2003 16:29:55
Günther Nebel
lieber hajo, vielen dank vorab, werde gleich mal exceln....ciao
AW: Datums- und Zeitprüfung
28.12.2003 17:56:31
andre
hallo günther,
das geht auch mit weniger code.
im eingabefeld beschränkst du die eingabe auf zahlen und punkte.

Private Sub CBDatum_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9.]" = False Then KeyAscii = 0
End Sub

dann prüfst du es auf datum

Private Sub CBDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.CBDatum.Value) Then
Me.CBDatum.Value = CDate(Me.CBDatum.Value)' hier mit format auch anderes format möglich
Else
MsgBox "Datum falsch"
End If
End Sub

gruss andre
Anzeige
AW: Datums- und Zeitprüfung
28.12.2003 19:18:50
Hajo_Zi
Hallo Andre

Dein Code ist kürzer, aber bei Dir kann z.B. "..."; ".1"; 1..2" eingegeben werden um mal nur einige zu nennen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


310 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
1
4
10
4
1
12
4
3
1
2
2
2
3
1
5
3
2
7
1
2
9
4
2