Datum als Text kopieren

Forumthread: Datum als Text kopieren

16.09.2008 18:22:00

Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum kommt als Datumsformat in die zweite Datei, aber durch den Serienbrief kommt in dem Worddokument nur die Datumszahl an.
Ich suche also eine Möglichkeit, beim Auslesen der ersten Datei das Datum so in die zweite hineinzukopieren, dass beim Serienbrieferstellen auch wirklich das Datum erscheint und nicht die Zahl.
Oder muß ich das im Wordserienbrief vielleicht machen ?
Lieben Dank für jede Hilfe.
Viele Grüße
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum als Text kopieren

16.09.2008 18:31:45

Tino
AW: Datum als Text kopieren

17.09.2008 08:31:00

Thomas3
AW: Datum als Text kopieren

17.09.2008 13:48:55

Tino

AW: Datum als Text kopieren

16.09.2008 18:31:45

Tino

Hallo,
hier mal ein Beispiel, wie ein Datum als Long- Wertz in ein String verwandelt wird und
gleichzeitig ein entsprechendes Format eingestellt wird.
Modul Modul1

Option Explicit 
 
Sub TestDatum() 
Dim lngDatum As Long 
Dim strDatum As String 
 
'hier ist Datum eine Zahl (Long) 
lngDatum = Date 
 
'hier wird diese in ein String verwandelt mit 
'entsprechender Formatvorgabe 
strDatum = Format(CDate(lngDatum), "dd.mm.yyyy") 
 
 
End Sub

Kannst Du mit dieser Info etwas anfangen?
Gruß Tino

AW: Datum als Text kopieren

17.09.2008 08:31:00

Thomas3

Guten Morgen Tino,
das habe ich jetzt mal eingebaut und werde sehen, was sich tut. Ich habe jetzt noch die Zeile eigefügt
Sheets("Adressen_auslesen").Cells(b, 8).Value = strDatum
das sieht ganz gut aus.
Lieben Dank und Grüße
Thomas

AW: Datum als Text kopieren

17.09.2008 13:48:55

Tino

Hallo,
dies sollte eigentlich ein Beispiel sein!
Ein Datum sollte man nicht als String in eine Zelle schreiben, sonder als Datum!
Also müssen wir den String oder den Long Wert in ein Datum verwandeln.
Hier mal einige Beispiele:

Option Explicit

Sub Beispiel_Makro_Datum()
Dim lngDatum As Long
Dim strDatum As String
Dim dateDatum As Date

'hier ist Datum eine Zahl (Long) 
lngDatum = Date
'hier wird dieses Datum zu einen String 
strDatum = Format(CDate(lngDatum), "dd.mm.yyyy")
'hier wird das Datum an eine Variable die als Datum Deklariert ist übergeben 
dateDatum = lngDatum

'liegt das Datum als String oder Long Wert vor, schreibt man dies so in eine Zelle 
Sheets("Adressen_auslesen").Cells(1, 8) = CDate(strDatum)
'oder bei Long 
Sheets("Adressen_auslesen").Cells(2, 8) = CDate(lngDatum)
'liegt das Datum schon als Variable Datum vor, brauchen diese auch nich umwandeln 
Sheets("Adressen_auslesen").Cells(3, 8) = dateDatum

'für die Darstellung der Zellen, 
'brauchst du nur dass gewünschte Format der Zellen einstellen 
End Sub

Gruß Tino

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne die Excel-Datei, aus der Du das Datum kopieren möchtest.
Markiere die Zelle, die das Datum enthält.
Kopiere das Datum mit Strg + C oder Rechtsklick und "Kopieren".
Wechsle zu der Ziel-Excel-Datei und wähle die Zelle aus, in die Du das Datum einfügen möchtest.
Klicke auf den Pfeil unter "Einfügen" in der Menüleiste und wähle "Inhalte einfügen".
Wähle "Werte" aus und klicke auf "OK".
Formatiere die Zelle als Text, um sicherzustellen, dass Excel das Datum nicht automatisch umwandelt.

Wenn Du das Datum in einer bestimmten Formatierung benötigst, kannst Du das Format auch direkt in der Zielzelle anpassen.

Häufige Fehler und Lösungen

Excel verwandelt Zahl in Datum: Wenn Du ein Datum kopierst und es als Zahl angezeigt wird, stelle sicher, dass die Zelle im Ziel-Dokument als Text formatiert ist.
Kein Text kopieren: Manchmal wird das Datum nicht als Text übernommen. Überprüfe, ob Du "Inhalte einfügen" und "Werte" korrekt ausgewählt hast.
Formatierungsprobleme: Stelle sicher, dass die Zielzelle das richtige Format hat. Du kannst das Format über die Zellenformatierung anpassen.

Alternative Methoden

VBA-Makro verwenden: Wenn Du häufig Daten kopieren musst, kannst Du ein Makro erstellen, das das Datum automatisch als Text in die Zielzelle einfügt. Hier ein Beispiel:

Sub DatumAlsText()
   Dim lngDatum As Long
   Dim strDatum As String

   lngDatum = Date
   strDatum = Format(CDate(lngDatum), "dd.mm.yyyy")
   Sheets("Zielblatt").Cells(1, 1).Value = strDatum
End Sub

Textfunktionen verwenden: Du kannst auch die Funktion TEXT() verwenden, um das Datum in ein Textformat zu konvertieren:
```
=TEXT(A1; "dd.mm.yyyy")
```

Praktische Beispiele

Beispiel 1: Du hast das Datum in A1 und möchtest es in B1 als Text einfügen:
```
=TEXT(A1; "dd.mm.yyyy")
```

Beispiel 2: Du möchtest das Datum in C1 als Text formatieren und in D1 speichern:

Sheets("Blatt1").Cells(1, 4).Value = Format(Sheets("Blatt1").Cells(1, 3).Value, "dd.mm.yyyy")

Tipps für Profis

Datenüberprüfung: Verwende die Funktion ISTDATUM(), um zu überprüfen, ob die Zelle tatsächlich ein Datum enthält, bevor Du die Umwandlung vornimmst.
Formatierung speichern: Du kannst die Formatierung der Zelle speichern, indem Du ein Formatvorlage verwendest, die Du auf andere Zellen anwenden kannst.

FAQ: Häufige Fragen

1. Wie kann ich ein Datum in Excel als Text formatieren?
Markiere die Zelle, gehe zu "Zellenformatierung" und wähle "Text" aus. Danach kannst Du das Datum kopieren und es wird als Text gespeichert.

2. Warum wird mein Datum als Zahl angezeigt?
Wenn das Datum nicht als Text formatiert ist, interpretiert Excel es als Zahl. Stelle sicher, dass die Zelle vor dem Einfügen als Text formatiert ist.

3. Kann ich ein Datum direkt als Text einfügen?
Ja, indem Du "Inhalte einfügen" und "Werte" auswählst, kannst Du das Datum als Text in die Zielzelle einfügen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Datum als Text kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Datum als Text kopieren in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread