Herbers Excel-Forum - das Archiv

Datum Konvertieren

Bild

Betrifft: Datum Konvertieren
von: John

Geschrieben am: 25.02.2005 03:18:36
Hallo,
ich hatte am 22.02.2005 einen Beitrag geschrieben. Dabei habe ich auch hilfe bekommen und es hat auch geklappt. Ich wollte gerade das gleiche Problem lösen, aber jetzt kommt auf einmal lauzeitfehler 6 Überlauf. Woran kann das denn liegen. Leider finde ich den Beitrag nicht mehr. Es hat mir der Herr UweD geholfen. Jetzt ist die Datei noch grösser geworden.
Das war der Beitrag: https://www.herber.de/forum/archiv/572to576/t573835.htm

Gruß,
John
Bild

Betrifft: AW: Datum Konvertieren
von: Reinhard

Geschrieben am: 25.02.2005 06:41:20
Hi John,
lass mal die abgänderte Sub und abgänderte Fkt laufen, welche zeile wird angezeigt, was steht in dieser Zeile in Spalte H?
Gruß
REinhard
Sub extra2() 'Dieses Makro ausführen
Dim Z, LR%
On Error GoTo Fehler
LR = Cells(Rows.Count, 8).End(xlUp).Row 'letzte Zeile der Spalte
For Each Z In ActiveSheet.Range("H3:H" & LR).Cells
If IsNumeric(Z) = False Then
Z.Value = Datum_raus2(Z.Text, Z.Row)
Z.NumberFormat = "0.00"
End If
Next
Exit Sub
Fehler:
MsgBox Z.Row
End Sub
Function Datum_raus2(Wert$, zei As Long)
On Error GoTo Fehler
Wert = Application.Substitute(UCase(Wert), "JAN", "01")
Wert = Application.Substitute(UCase(Wert), "FEB", "02")
Wert = Application.Substitute(UCase(Wert), "MRZ", "03")
Wert = Application.Substitute(UCase(Wert), "APR", "04")
Wert = Application.Substitute(UCase(Wert), "MAI", "05")
Wert = Application.Substitute(UCase(Wert), "JUN", "06")
Wert = Application.Substitute(UCase(Wert), "JUL", "07")
Wert = Application.Substitute(UCase(Wert), "AUG", "08")
Wert = Application.Substitute(UCase(Wert), "SEP", "09")
Wert = Application.Substitute(UCase(Wert), "OKT", "10")
Wert = Application.Substitute(UCase(Wert), "NOV", "11")
Wert = Application.Substitute(UCase(Wert), "DEZ", "12")
Wert = Application.Substitute(Wert, " ", ",")
Wert = Application.Substitute(Wert, ".", ",")
Wert = Application.Substitute(Wert, ",,", ",")
Datum_raus2 = Wert * 1
Exit Function
Fehler:
MsgBox zei
End Function

Bild

Betrifft: AW: Datum Konvertieren
von: Hay

Geschrieben am: 25.02.2005 10:38:25
Hallo,
wenn ich diesen Makro laufen lasse, dann wird dieser Fehler angezeigt: MsgBox Z.Row
Laufzeitfehler 424 Objekt erforderlich. Leider kann ich die komplette datei hochladen. Ich habe die Datei hier für Sie hinterlegt.
http://www.j-tvertrieb.de/mappe1/mappe.zip

Gruß,
John
Bild

Betrifft: AW: Datum Konvertieren
von: Reinhard

Geschrieben am: 25.02.2005 11:04:02
Hi John,
so läuft sie bei mir problemlos durch für den Bereich H3:H32953
Gruß
Reinhard
Sub extra2() 'Dieses Makro ausführen
Dim Z As Range, LR As Long, n As Long
Application.ScreenUpdating = False
On Error GoTo Fehler
LR = Cells(Rows.Count, 8).End(xlUp).Row 'letzte Zeile der Spalte
For Each Z In ActiveSheet.Range("H3:H" & LR).Cells
n = n + 1
If IsNumeric(Z) = False Then
Z.Value = Datum_raus2(Z.Text, n)
Z.NumberFormat = "0.00"
End If
Next Z
MsgBox n
Application.ScreenUpdating = True
Exit Sub
Fehler:
MsgBox n
Application.ScreenUpdating = True
End Sub

Function Datum_raus2(Wert$, zei As Long)
On Error GoTo Fehler
Wert = Application.Substitute(UCase(Wert), "JAN", "01")
Wert = Application.Substitute(UCase(Wert), "FEB", "02")
Wert = Application.Substitute(UCase(Wert), "MRZ", "03")
Wert = Application.Substitute(UCase(Wert), "APR", "04")
Wert = Application.Substitute(UCase(Wert), "MAI", "05")
Wert = Application.Substitute(UCase(Wert), "JUN", "06")
Wert = Application.Substitute(UCase(Wert), "JUL", "07")
Wert = Application.Substitute(UCase(Wert), "AUG", "08")
Wert = Application.Substitute(UCase(Wert), "SEP", "09")
Wert = Application.Substitute(UCase(Wert), "OKT", "10")
Wert = Application.Substitute(UCase(Wert), "NOV", "11")
Wert = Application.Substitute(UCase(Wert), "DEZ", "12")
Wert = Application.Substitute(Wert, " ", ",")
Wert = Application.Substitute(Wert, ".", ",")
Wert = Application.Substitute(Wert, ",,", ",")
Datum_raus2 = Wert * 1
Exit Function
Fehler:
MsgBox zei
End Function

Bild

Betrifft: AW: Datum Konvertieren
von: John
Geschrieben am: 25.02.2005 11:53:09
Hallo,
jetzt läuft es. Woran hat es eigentlich gelegen. Funktioniert es auch bei n Zeilen? Weil es täglich mehrere daten dazu kommen.
Gruß,
John
Bild

Betrifft: AW: Datum Konvertieren
von: Reinhard

Geschrieben am: 26.02.2005 15:47:32
Hi John,
k.A. an was es lag. Ja, wird auch in Zeilen funktionieren *annehm*
Den Bereich wo der Code umwandeln soll gibst du ja in dieser zeile vor:
For Each Z In ActiveSheet.Range("H3:H" & LR).Cells
Und da ist es dem Code egal ob da
("H3:H" & LR)
oder
("H3:R" & LR)
steht.
Gruß
Reinhard
Bild

Betrifft: AW: Datum Konvertieren
von: John
Geschrieben am: 25.02.2005 11:57:43
Hallo,
wo kann ich eigentlich die Makros speichern, das ich Sie nur durch ALT+F8 in einer neuen Mappe was ich täglich erstelle öffnen kann. Bis jetzt muss ich die jedesmal manuel in jeder mappe eintragen.
Gruß,
John
Bild

Betrifft: personl.xls mt.
von: th.heinrich

Geschrieben am: 25.02.2005 13:15:59
hallo John,
wenn Du makros in der personl.xls ablegst sind sie global verfuegbar. sie sollte eigentlich im VBA Projektmanager sichtbar sein.
andere alternative: Du speicherst die mappe als .xlt ab, dann hast Du sie unter Datei-Neu zur verfuegung.
schoenes WE von thomas
Bild

Betrifft: AW: personl.xls mt.
von: John

Geschrieben am: 25.02.2005 13:58:54
Hallo,
leider habe ich das noch nicht richtig verstanden. Wenn ich csv bekomme sind es ja immer verschiedene dateien. Ich wollte dieses dann mit ALT+F8 die Makros aktivieren. Leider weiß ich nicht wie ich die Makros immer im Excel speichern soll.
Gruß,
John
Bild

Betrifft: AW: personl.xls mt.
von: Weronica
Geschrieben am: 25.02.2005 15:22:12
So ein Scheiss kann nicht jeder nur du Thomas aber ich komme zur dir heute Abends
Weronica
Bild

Betrifft: AW: personl.xls mt.
von: John
Geschrieben am: 25.02.2005 16:43:04
HAllo,
ich glaube jemand hat mir auf einen falschen Beitrag geantwortet.
Gruß,
John
Bild

Betrifft: AW: personl.xls oT
von: Herbert
Geschrieben am: 26.02.2005 02:00:18
o
 Bild
Excel-Beispiele zum Thema "Datum Konvertieren"
XL5/7-Dateien nach XL8 konvertieren Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren
Serie von Dateien in das XL5/7-Format konvertieren Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren
Blattschaltflächen in Menüschaltflächen konvertieren. Hyperlinkadressen zu Kommentaren konvertieren
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen Textdatei in Unicode-Text konvertieren