Datumswerte falsch trotz Makroanpassung
09.11.2006 16:27:49
Frank
Ich habe ein Tabellenblatt mit Datensätzen.
In einigen Spalten sind Datumswerte. Leider nicht so wie ich sie gerne hätte.
Ich habe sie in folgendem Format in den Spalten: 01.05.2006 23:00:00
Da ich aber nur die Uhrzeit 23:00 brauche, habe ich folgendes Makro geschrieben:
Sub Datumsformate()
'Anzeige der Datumsformate korrekt einstellen
Dim bz As Integer
Dim i As Integer
Dim uz As Date
Dim uz1 As Variant
bz = ActiveWorkbook.Sheets("Discovererimport").UsedRange.Rows.Count
For i = 2 To bz
If Cells(i, 5) = "-" Then
Cells(i, 5) = ""
End If
If Cells(i, 7) = "-" Then
Cells(i, 7) = ""
End If
uz = Cells(i, 5)
uz1 = Mid(uz, 12, 5)
Cells(i, 5) = uz1
uz = Cells(i, 7)
uz1 = Mid(uz, 12, 5)
Cells(i, 7) = uz1
Next i
Columns("D:D").NumberFormat = "dd.mm.yyyy"
Columns("F:F").NumberFormat = "dd.mm.yyyy"
Columns("O:O").NumberFormat = "dd.mm.yyyy"
Columns("E:E").NumberFormat = "hh:mm"
Columns("G:G").NumberFormat = "hh:mm"
End Sub
Leider sieht das Ergebnis dann so aus: 23:00:00
Obwohl ich nur 5 Zeichen einlese, stehen nachher trotzdem 8 drin.
(Sie stehen tatsächlich drin. Es ist kein Problem des Anzeigeformats)
Hat jemand eine Idee dazu?
Gruß
Frank