Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeitformat in textbox
18.07.2004 21:03:55
Erich
Hallo Excelprofis,
habe wieder ein kleines problen:
ich möchte in meiner Userform Textbox eine Zeit eintragen z.b. 012356 in der Textbox sollte aber nach den eintrag das format so aussehen 01:23:56, anschließend will ich die zeit in die Tabelle1 eintragen und damit rechnen, wer kann mir bitte weiter helfen?
im vorraus danke für eure hilfe.
gruß erich

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

Betreff
Datum
Anwender
Anzeige
AW: Zeitformat in textbox zu 2
18.07.2004 21:06:02
Annett
Hallo Erich
zu 2 Range("A1")=Cdate(Textbox1)
Gruß Annett
AW: Zeitformat in textbox zu 2
18.07.2004 22:01:04
Erich
Danke Annett,
diesen teil konnte ich gleich umsetzen, danke
gruß
erich
AW: Zeitformat in textbox zu 2
18.07.2004 22:13:02
Klaus-Dieter
Hallo Erich,
versuche es mal so:
Private Sub TextBox1_Change() If Len(TextBox1.Text) = 6 Then TextBox1 = Format(Left(TextBox1, 2) & ":" & Mid(TextBox1, 3, 2) & ":" & Right(TextBox1, 2), "hh:mm:ss") End If Cells(1, 1) = CDate(TextBox1) End Sub
Gruß Klaus-Dieter

Anzeige
AW: Zeitformat in textbox zu 2
18.07.2004 22:16:28
Josef
Hallo Erich!
Probier das mal!
Option Explicit

Private Sub CommandButton1_Click()
[A1] = CDate(TextBox1)
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Eingabebeschränkung Textbox Uhrzeit mit autom. Doppelpunkt
'Format hh:mm:ss
Select Case Len(TextBox1)
Case 0
Select Case KeyAscii
Case 48 To 50
Case Else
KeyAscii = 0
End Select
Case 1
If Left(TextBox1, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End If
Case 2, 5
Select Case KeyAscii
Case 48 To 53, 58
If KeyAscii <> 58 Then TextBox1 = TextBox1 & ":"
Case Else
KeyAscii = 0
End Select
Case 3, 6
If Right(TextBox1, 1) = ":" Then
Select Case KeyAscii
Case 48 To 53
Case Else
KeyAscii = 0
End Select
End If
Case 4, 7
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Case Else
KeyAscii = 0
End Select
End Sub

Gruß Sepp
Anzeige
Danke
erich
Hallo Klaus- Dieter und Sepp
danke für die Schnelle antwort, es funktioniert danke
Danke

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige