Format bei "Text in Spalten" über Makro
07.05.2005 18:45:21
Angelika
Hier der Code
1. ohne Formatierungsänderung
Sub Text_in_Spalten1()
' Text_in_Spalten1 Makro
' Makro am 07.05.2005 von KA aufgezeichnet
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(20, 1), Array(30, 1))
End Sub
2. Mit Datumsformat
Sub Text_in_Spalten2()
' Text_in_Spalten2 Makro
' Makro am 07.05.2005 von KA aufgezeichnet
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 2), Array(20, 1), Array(30, 1))
Windows("MPSO00481A_050427_test.xls").Activate
Application.WindowState = xlMinimized
End Sub
In meinem Fall ist das das Datumsformat für eine der Spalten. Wie wird denn dann die Formatierung festgelegt?
Ich bräuchte auch einen Tipp, wie ich es vermeiden kann, dass so entstandene Spalten mit Zahlenwerten (Formatierung "Standard") nach ausführen des Makros nicht mehr mit Excel-Formeln z.B. summiert werden können. Das einzelne aufaddieren der Zellen mit "+A2+A3+..." funktioniert komischerweise noch, macht aber bei über 1000 Werten keine Sinn.
Bin für jede Hilfe dankbar!