Habe eine Tabelle wo das Zahlenformat (Datum) nicht übernommen wird.
Die Spalte ist als Datum formatiert, wenn die Daten (die als Text vorliegen) dann in diese Spalte kommen (mit VBA), dann wird es trotzdem als Text angezeigt, nicht als Datum.
Dann muss man mit F2 rein und Enter drücken.
Oder mit Text in Spalte.
Weil ich aber die Datei regelmässig aktualisiere, will ich das nicht händisch machen, sondern will das auch automatisieren.
Habe Makros aufgenommen, die funktionieren aber beim Aufruf nicht, dh. keine Fehlermeldung, aber es passiert nix.
Auch ein Makro für das Senden von F2 funktioniert nicht.
Sub F2Senden()
Dim zelle2 As Object
Tabelle1.Range("A1:A30").Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub
Sub SpaltezuText()
' SpaltezuText Makro
Columns("A").Select
Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Weiss jemand warum das nicht funktioniert?Hänge eine Beispieldatei dran mit allen Makros, die ich probiert habe.
https://www.herber.de/bbs/user/123596.xlsm
Viele Grüsse
Kailash