Datum + "Text in Spalten"
09.03.2006 11:40:57
Trigger
bin neu hier und von der Beitragsmenge begeistert. Hoffe, hier Hilfe zu finden.
Fasse mich kurz und komme auch gleich zum Thema (das ich leider nicht genau in der Form im Forum gefunden habe)
Ausgangslage:
Bekomme immer Daten in Excel-Listen: Darunter sind 2 Spalten mit unterschiedlichen Datum-Formaten
Spalte A in TT.MM.JJJJ
Spalte B in JJJJMMKW (ohne Punkt und ohne Tag, stattdessen Kalenderwoche als letztes)
Nun muss ich die Differenz der Kalenderwochen (das Alter) berechnen. Um mit den unterschiedlichen Formaten zurechtzukommen bin ich bisher nur auf diese Lösung gekommen:
Spalte A per "Text in Spalten-feste Breite" nach TT.MM. in die eine Spalte und JJJJ in die andere Spalte aufteilen (Bsp. |28.12.2004| -> |28.12.||2004|)
Mit Spalte B mache ich das auch über "Text in Spalte..." und errechne dann das Alter
Das Problem:
Manuell lässt sich Spalte A aufteilen, aber wenn ich das in ein Makro aufzeichne, dann kommen wirre und völlig falsche Daten heraus
(Bsp. |28.12.2004| -> 26.06.2005)
Hier der Code des Makros
______________________________
Sub löschen()
Columns("C:C").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
End Sub
______________________________
Woran liegt das und wie kann ich das abstellen?
Oder kennst jmd. eine einfachere Möglichkeit, das Alter auf Kalenderwoche genau auszurechnen? Hoffe, ich habe das verständlich rübergebracht!
Vielen Dank!
Gruß Trigger
Anzeige