Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhrzeit-Formatierung

Uhrzeit-Formatierung
28.10.2005 08:26:26
Helge
Hallo,
mit einem Meßsystem werden Zeiten in folgendem Format abgespeichert:
TT.MM.JJJJ hh:mm:ss.sss
Über den Textkonvertierungsassistenten habe ich diese Werte eingelesen.
Hierbei stören aber die Sekundenbruchteile, wie man am zweiten Beispiel sieht!
Hier wird die Zeit immer als Text eingelesen.
Bsp. 1:
26.10.2005 04:15:04.964
wird zu 26.10.2005 04:15:04
Bsp. 2:
26.10.2005 04:15:55.042
wird zu 26.10.2005 04:15:55.042
Ursache ist die 0 (Null) hinter dem Punkt. Wird diese gelöscht, kann die Zelle ganz normal als Datum und Uhrzeit weiter behandelt werden.
Da es sich aber um hunderte von Werten handelt, ist eine manuelle Bearbeitung nicht möglich.
Was kann man tun?
Gruß
Helge

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit-Formatierung
28.10.2005 10:23:12
WernerB.
Hallo Helge,
markiere den betreffenden Zellbereich und starte dann dieses Makro:

Sub Helge()
Dim c As Range, _
Tx1 As String
Application.ScreenUpdating = False
For Each c In Selection
If Len(c.Text) = 23 Then
If Mid(c.Text, 21, 1) = "0" Then
Tx1 = Left(c.Text, 19)
c.ClearContents
c.NumberFormat = "dd/mm/yyyy hh:mm:ss"
c.Value = CDate(Tx1)
End If
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Uhrzeit-Formatierung
28.10.2005 12:10:35
Helge
Hallo Werner,
vielen Dank, ich hätte nicht erwartet, so schnell Antwort zu erhalten!
Und es funktioniert!!
Gruß
Helge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige