Problem mit der Formatierung
09.09.2003 10:02:20
Marco
Ich habe ein kleines Problem, un zwar ich benutzte Volgendes Makro zum öffnen von Dateien:
Sub OpenFile()
s = Application.GetOpenFilename("Datendateien, *.dat")
Workbooks.Open s
MsgBox s
End Sub
Um diese geöffnete File zu fomatieren dieses Makro;
Sub Formatierung()
Windows("692195-6.dat").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(8, 1), Array(16, 1), Array(26, 1), _
Array(29, 1), Array(54, 1), Array(59, 1), Array(80, 1), Array(83, 1), Array(86, 1), Array( _
90, 1), Array(95, 1))
Range("C9").Select
End Sub
folgendes Problem taucht auf, er formatiert mir nur die Datei mit der ich das Makro aufgezeichnet habe also die 692195-6, wenn ich allerdings eine andere Datei öffnen will bring er mir den Laufzeitfehler 9(Index außerhalb des gültigen Bereichs). Wie bekomme ich das jetzt hin ohne das ich jedesmal in dem Makro den Befehl Windows("692195-6.dat").Activate ändern muss?
Danke für eure Hilfe
Gruß
Marco