Makro / Datum-Format "BITTE um Hilfe"
24.01.2013 13:40:44
Micha
ich komme einfach nicht weiter, und benötige mal wieder Euer Fachwissen :-)
In meiner nach Excel exportierten Tabelle werden Spalten mit einem Datum als Text formatiert.
Diese Spalten als Datum zu formatieren ist ja über das Menü Daten und anschließend Text in Spalte recht einfach hinzubekommen.
Ich benötige das aber automatisiert über ein Makro, also habe ich das ganze aufgezeichnet.
Doch leider wird das Format beim Abspielen des Makro nicht geändert.
Ich hoffe Ihr könnt mir hier wieder helfen?
Code und Arbeitsmappe anbei
Vorab besten Dank und Gruß
Micha
https://www.herber.de/bbs/user/83555.xlsm
Sub Datum()
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Anzeige