über einen Umweg habe ich aus einer in einer Zelle stehenden Datumsangabe Wochentag, Datum und Zeit gemacht. Brauchen tue ich jedoch nur das Datum, sodass ich die einzelnen Teile in eine neue Zelle schreiben lasse. Problem ist, dass das Datum wie folgt ausschaut:
9Jan2008
Wie schaffe ich es, dass es dieses Format erhält: 9. Jan 2008?
Wie kann ich zudem aus der Formel den Bezug zu meinen 'Hilfszellen' entfernen, sprich aus Formel mach Text oder Datum, sodass ich im Nachgang meine Hilfszeilen löschen kann?
Range("A3").Select
Selection.Copy
Range("AR3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
If a * 10 Then
Selection.TextToColumns Destination:=Range("AR3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(7, 1), Array(9, 1), Array(18, 1)), _
TrailingMinusNumbers:=True
Else
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("AR3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(7, 1), Array(10, 1), Array(19, 1)), _
TrailingMinusNumbers:=True
End If
Range("AR3:AV3").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(R[1]C[45],R[1]C[44],R[1]C[47])"
Selection.NumberFormat = "@"
Zur Erklärung: a bezieht sich darauf ob der Tag ein- oder zweistellig ist. Ich habe versucht Punkt sowie Leerzeichen in Concatenate mit einzubinden, jedoch war dies nicht von Erfolg gekrönt. Für * steht ein kleiner als, anders kann ich meine Frage nicht abschicken.
Vielen Dank für eure Hilfe!