Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format: Datum Zeit-Zeit

Format: Datum Zeit-Zeit
16.02.2003 13:43:55
Mario
Gibt es eine Möglichkeit z.B. die Eingabe 16.2.03.13.40.13.50 so auszugeben: 16.02.2003 13:40-13:50
Da ich viele Eingaben in dieser Form machen muss würde mir diese Formatierung die Eingabe sehr erleichtern und verschnellern.


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

Betreff
Datum
Anwender
Anzeige
Re: Format: Datum Zeit-Zeit
16.02.2003 14:09:24
M@x

Hallo Mario,
gib einfach 16020313401350 Manate, Tage Stunden Minuten immer zweistellig und formatiere ##"."##".""20"##* ##":"##"-"##":"##


Gruss

M@x

Re: Format: Datum Zeit-Zeit
16.02.2003 14:11:14
udo


Hi, damit kommst schon mal weiter, in Bezug auf vereinfachtes Eingeben der Uhr zeit Bsp. 1200 wird zu 12:00 , und Datum könntest ja die Nachbarzelle entsprechend formartieren.


Private Sub Worksheet_Change(ByVal Target As Range)

Dim sTxt As String
If Target.Column < 5 Or Target.Column > 21 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ERRORHANDLER:
ActiveCell.ClearContents
Application.EnableEvents = True

End Sub

Anzeige
Re: Format: Datum Zeit-Zeit
16.02.2003 14:11:15
udo


Hi, damit kommst schon mal weiter, in Bezug auf vereinfachtes Eingeben der Uhr zeit Bsp. 1200 wird zu 12:00 , und Datum könntest ja die Nachbarzelle entsprechend formartieren.


Private Sub Worksheet_Change(ByVal Target As Range)

Dim sTxt As String
If Target.Column < 5 Or Target.Column > 21 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ERRORHANDLER:
ActiveCell.ClearContents
Application.EnableEvents = True

End Sub

Anzeige
Re: Format: Datum Zeit-Zeit
16.02.2003 14:11:22
udo


Hi, damit kommst schon mal weiter, in Bezug auf vereinfachtes Eingeben der Uhr zeit Bsp. 1200 wird zu 12:00 , und Datum könntest ja die Nachbarzelle entsprechend formartieren.


Private Sub Worksheet_Change(ByVal Target As Range)

Dim sTxt As String
If Target.Column < 5 Or Target.Column > 21 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ERRORHANDLER:
ActiveCell.ClearContents
Application.EnableEvents = True

End Sub

Anzeige
Danke für die Antworten
16.02.2003 15:08:21
Mario

Danke für eure schnellen Antworten. Ich habe die Lösung mit der Formatierung gewählt, weil ich mich mit Makros nicht auskenne.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige