Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro - Datum und Uhrzeit in zwei Zellen trennen

Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:25:09
katrin
Hallo!
Kann mir jemand ein Makro zur Verfügung stellen, das in einem markierten Bereich das Datum und die Uhrzeit in zwei Zellen trennt und die Sekundenanzeige weglässt. Also: 22.12.2005 10:30:00 in zwei Zellen nebeneinander ausgeben und die Uhrzeit nur 10:30.
Danke für Eure Hilfe!
Katrin
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:28:00
Andreas
A1: 22.12.2005 10:30:00
B1:=Ganzzahl(A1) (Formatieren: TT.MM.JJJJ)
C1:=A1-B1 (Formatieren: hh:mm)
gruss
Andreas
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:30:13
Andreas
per Makro:
Datum entspricht 22.12.2005 10:30:00
Tag=Int(Datum)
Zeit=Datum-int(Datum)
gruss
Andreas
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:35:32
Katrin
Ich kann aber kein Makro schreiben. Ich dachte, es hat vielleicht jemand ein fertiges, das ich verwenden, im schlimmsten Fall (weil ich wirklich mit Makros nicht viel Erfahrung hab) leicht abändere!!
Aber trotzdem danke!
Anzeige
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:31:49
Katrin
Sorry, ich kenn mich in VBA nicht wirklich aus.
Aber das ist doch jetzt ne "ganz normale" Formel?!!
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:40:23
Andreas
schuldigung, falsch gelesen.
Per Makro:

Sub Datum()
For Each zelle In Selection
Range(zelle.Address).Offset(0, 1) = Int(zelle.Value)
Range(zelle.Address).Offset(0, 2) = zelle.Value - Int(zelle.Value)
Range(zelle.Address).Offset(0, 1).NumberFormat = "DD.MM.YYYY"
Range(zelle.Address).Offset(0, 2).NumberFormat = "hh:mm"
Next zelle
End Sub

Jetzt die Datum im Format '22.12.2005 10:30:00' markieren (sollten unter einander stehen) und das Makro starten.
Es setzt das Datum un die Uhrzeit in die 2 Spalten rechts daneben.
gruss
Andreas
Anzeige
AW: Makro - Datum und Uhrzeit in zwei Zellen trennen
22.06.2006 13:45:44
katrin
Super, vielen lieben Dank!!
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
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum und Uhrzeit in Excel trennen


Schritt-für-Schritt-Anleitung

Um das Datum und die Uhrzeit in Excel zu trennen, kannst du entweder eine Excel-Formel verwenden oder ein VBA-Makro erstellen. Hier zeigen wir dir beide Methoden:

1. Mit einer Formel:

  • Angenommen, dein Datum und die Uhrzeit befinden sich in Zelle A1 (z.B. 22.12.2005 10:30:00).
  • In Zelle B1 trägst du folgende Formel ein, um das Datum zu extrahieren:
     =GANZZAHL(A1)
  • In Zelle C1 verwendest du diese Formel, um die Uhrzeit zu extrahieren:
     =A1-B1
  • Formatiere B1 als TT.MM.JJJJ und C1 als hh:mm.

2. Mit VBA-Makro:

  • Öffne den VBA-Editor (ALT + F11).
  • Füge ein neues Modul hinzu und kopiere den folgenden Code:
     Sub Datum()
         For Each zelle In Selection
             Range(zelle.Address).Offset(0, 1) = Int(zelle.Value)
             Range(zelle.Address).Offset(0, 2) = zelle.Value - Int(zelle.Value)
             Range(zelle.Address).Offset(0, 1).NumberFormat = "DD.MM.YYYY"
             Range(zelle.Address).Offset(0, 2).NumberFormat = "hh:mm"
         Next zelle
     End Sub
  • Markiere die Zellen mit dem Datum und der Uhrzeit und führe das Makro aus.

Häufige Fehler und Lösungen

  • Fehler: Die Formeln liefern Fehlerwerte.

    • Lösung: Stelle sicher, dass die Zelle A1 tatsächlich ein Datum im richtigen Format enthält.
  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob die Zellen korrekt markiert sind und dass sich nur eine Spalte mit Daten im Auswahlbereich befindet.

Alternative Methoden

Falls du keine VBA-Kenntnisse hast oder das Makro nicht nutzen möchtest, kannst du auch die Funktionen TEXT oder DATUM in Excel verwenden, um das datum und uhrzeit zu trennen. Beispielsweise kannst du mit der TEXT-Funktion die Darstellung des Datums oder der Uhrzeit anpassen.


Praktische Beispiele

Hier sind einige Beispiele, wie du das datum und die uhrzeit in einer zelle trennen kannst:

  1. Beispiel für eine Formel:

    • Zelle A1: 01.01.2023 15:45:30
    • B1: =GANZZAHL(A1) → gibt 01.01.2023
    • C1: =A1-B1 → gibt 15:45
  2. Beispiel mit VBA:

    • Markiere einen Bereich mit Daten (z.B. A1:A10) und führe das Datum-Makro aus. Es wird die uhrzeit von datum in die benachbarten Zellen aufgeteilt.

Tipps für Profis

  • Nutze die WENN-Funktion in Kombination mit der ISTDATUM-Funktion, um eine zusätzliche Fehlerprüfung in deinen Formeln einzubauen.
  • Wenn du häufig mit datum und uhrzeit in einer zelle arbeitest, erwäge, ein benutzerdefiniertes Makro zu erstellen, das deine spezifischen Anforderungen berücksichtigt.

FAQ: Häufige Fragen

1. Wie kann ich das Datum und die Uhrzeit in Excel in einer Zelle trennen? Um das Datum und die Uhrzeit in Excel zu trennen, kannst du entweder eine einfache Formel oder ein VBA-Makro verwenden, wie oben beschrieben.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, die beschriebenen Methoden zum datum und uhrzeit trennen excel funktionieren in den meisten Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige