Datumsformat formatieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Datumsformat formatieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

alacritas
Newbie
Newbie

Anmeldedatum: 23.08.2007
Beiträge: 7

Verfasst am: 24.08.2007, 08:20

Hi,

ich habe folgendes Makro, welches mir die Datumsformate in einem einheitlichen Format umwandel soll.

Sub Daten_Umwandeln_schreiben()
Dim Dat As Variant
Dim z As Integer
Dat = Range("A2:A300")
Range("A2:A65536").Clear
Range("A2:A65536").NumberFormat = "dd/mm/yyyy"
For z = 1 To UBound(Dat)
If Dat(z, 1) = "" Then GoTo weiter
Cells(z + 1, 1) = CDate(Dat(z, 1))
weiter:
Next z
End Sub

Ich bekomme aber immer Laufzeitfehler'13' angezeigt, wie kann denn das sein?
Weiß da einer Rat:)
LG

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5571

Verfasst am: 24.08.2007, 11:46

Hallo!

Dann hast du wahrscheinlich irgendwo in A2:A300 Text stehen, der nicht in ein Datum umgewandelt werden kann.
Zumindest läuft das Makro bei mir fehlerfrei, wenn es sich ausschließlich um Zahlenwerte handelt.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

alacritas
Newbie
Newbie

Anmeldedatum: 23.08.2007
Beiträge: 7

Verfasst am: 28.08.2007, 08:18

Ja, ich kann mir das auch nicht erklären, aber es wirklich kein Text drin. Das Problem ist, wenn ich nur den Datensatz in eine neue Tabelle kopiere funktioniert das, aber wenn ich den Datensatz in der Ursprungsdatei lasse und auf die Spalte M umschreibe, löscht er mir die ganze M-Spalte, als würde er nur die Clear-Anweisung ausführen. Das ist doch nicht verständlich.....
Ich dag nur HILFE Rolling Eyes

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5571

Verfasst am: 28.08.2007, 12:45

Hallo!

Ich verstehe sowieso nicht, warum du zunächst die Einträge in ein Array einliest, dann die Einträge löschst, um sie dann wieder einzutragen.
???

Reicht dir nicht der Einzeiler

Code:

Range("A2:A65536").NumberFormat = "dd/mm/yyyy"

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Überschriftennummerierung richtig for...	daisyking	Microsoft Word Hilfe	0	04.09.2008, 09:22
	mehrere Abbildungen gleichzeitig form...	apfelkernchen	Microsoft Word Hilfe	0	29.08.2008, 00:55
	Spalten Formatieren	cwagner	Microsoft Excel Hilfe	4	01.08.2008, 21:53
	Absätze formatieren	cwagner	Microsoft Word Hilfe	4	08.07.2008, 10:29
	Combobox(en) in Userform Datumsformat	timi	Microsoft Excel Hilfe	11	20.05.2008, 16:30

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de