Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat auf Zellbereich anwenden

Forumthread: Datumsformat auf Zellbereich anwenden

Datumsformat auf Zellbereich anwenden
10.06.2004 14:52:43
Nina
Hallo Leute,
ich wollte da irgendwas mit cdate, danke Ingo, versuchen, aber ich komme damit nicht klar.
den Inhalt des Zellbereiches A1:B10 möchte ich in ein anderes Tabellenblatt kopieren lassen.
Da A1:B10 als Datenquelle für einen Word-Serienbrief herhalten, musste ich die Datumsformate als Text formatieren. Während des Kopiervorganges soll nun der Datumstext als Datumsformat ins neue Tabellenblatt kopiert werden.
Danke für Eure Hilfe im Voraus.
Liebe Grüsse Nina
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datumsformat auf Zellbereich anwenden
PeterW
Hallo Nina,
um ein Datum in einen Text zu wandeln benutze CStr (siehe hierzu die VBA-Hilfe).
Gruß
Peter
AW: Datumsformat auf Zellbereich anwenden
Oberschlumpf
Hi Nina
Und wenn Du Text in ein Datum umwandeln willst, dann ist die Funktion CDate die Richtige.
Und um alles automatisiert von der einen Tabelle, Bereich A1:B10, in eine andere Tabelle, auch Bereich A1:B10 zu kopieren, dann versuch es mal so.

Sub txtToDate()
Dim lrZelle As Range, liZeile As Integer
liZeile = 1
For Each lrZelle in Range Sheets("Tabelle1").Range("A1:B10")
If liZeile <= 10 then
Sheets("Tabelle2").Range("A" & liZeile).Value = CDate(lrZelle.Value)
Else
Sheets("Tabelle2").Range("B" & liZeile - 10).Value = CDate(lrZelle.Value)
End If
Next
End Sub

Für Tabelle1 musst Du den Tabellennamen DER Tabelle eintragen, in der sich die Daten befinden. (Quelltabelle)
Für "Tabelle2" musst Du den Tabellennamen DER Tabelle eintragen, in die die Daten eingefügt werden sollen (Zieltabelle)
Wenn die Daten gar nicht, wie von mir angenommen, in der Zieltabelle in Bereich A1:B10 eingefügt werden sollen, sondern in einen anderen Bereich, dann musst Du den Code entsprechend anpassen, da Du ja nicht erzählst, in welchen Bereich die Daten eingefügt werden sollen.
Füge dieses Makro in ein allgemeines Modul im VBA-Editor (Alt-F11) und rufe es in Excel über Extras/Makro/Makros auf
Konnte ich helfen?
Ciao
Thorsten

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige