Datum Konvertieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Datum Konvertieren"