Herbers Excel-Forum - das Archiv
Datum Konvertieren
- Datum Konvertieren von John vom 25.02.2005 03:18:36
- AW: Datum Konvertieren - von Reinhard am 25.02.2005 06:41:20
- AW: Datum Konvertieren - von Hay am 25.02.2005 10:38:25
- AW: Datum Konvertieren - von Reinhard am 25.02.2005 11:04:02
- AW: Datum Konvertieren - von John am 25.02.2005 11:53:09
- AW: Datum Konvertieren - von Reinhard am 26.02.2005 15:47:32
- AW: Datum Konvertieren - von Reinhard am 26.02.2005 15:47:32
- AW: Datum Konvertieren - von John am 25.02.2005 11:57:43
- personl.xls mt. - von th.heinrich am 25.02.2005 13:15:59
- AW: personl.xls mt. - von John am 25.02.2005 13:58:54
- AW: personl.xls mt. - von Weronica am 25.02.2005 15:22:12
- AW: personl.xls mt. - von John am 25.02.2005 16:43:04
- AW: personl.xls oT - von Herbert am 26.02.2005 02:00:18
- AW: personl.xls oT - von Herbert am 26.02.2005 02:00:18
- AW: personl.xls mt. - von John am 25.02.2005 16:43:04
- AW: personl.xls mt. - von John am 25.02.2005 13:58:54
- personl.xls mt. - von th.heinrich am 25.02.2005 13:15:59
- AW: Datum Konvertieren - von John am 25.02.2005 11:53:09
- AW: Datum Konvertieren - von Reinhard am 25.02.2005 11:04:02
- AW: Datum Konvertieren - von Hay am 25.02.2005 10:38:25
 |
Betrifft: Datum Konvertieren
von: John
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
 |
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 |
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
|
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 SubFunction 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
|
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
|
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
|
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
|
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
|
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
|
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
|
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
|
Betrifft: AW: personl.xls oT
von: Herbert
Geschrieben am: 26.02.2005 02:00:18
o
| |