AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 14:14:51
fcs
Hallo Katrin,
hier noch eine kleine Variante
Sub DatumZeitSplitten()
' Datum + Zeit werden in 2 Zellen aufgeteilt, Zeit in rechte Nachbarzelle, Datum in Zelle
Dim rngZellen As Range, Zelle As Range
Set rngZellen = Selection
If rngZellen.Columns.Count > 1 Then Exit Sub 'mehr als eine Spalte markiert
rngZellen.Offset(0, 1).NumberFormat = "hh:mm" 'Nachbarzellen als Zeit formatieren
For Each Zelle In rngZellen
If IsDate(Zelle) Then
Zelle.Offset(0, 1) = TimeValue(Format(Zelle - Int(Zelle), "hh:mm")) 'Sekunden werden gelöscht
' Zelle.Offset(0, 1) = Zelle - Int(Zelle) 'Sekunden bleiben erhalten
Zelle.Value = Int(Zelle)
Else
MsgBox ("Zelle " & Zelle.Address & " enthält keine Datumsangabe!")
End If
Next Zelle
rngZellen.NumberFormat = "DD.MM.YYYY" 'Zellen als Datum formatieren
End Sub
mfg
Franz