Text in Spalten
11.04.2009 14:30:27
Dieter
ich habe mit dem Recorder ein Makro aufgezeichnet,
um Daten mit der Funktion "Text in Spalten zu trennen.
Das Makro sieht so aus....
Sub DatenSpalten()
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
Das Problem ist nur, das Excel bei der Durchführung fragt, ob die Zellen wo eingetragen werden soll überschrieben werden dürfen.
Natürlich habe ich die Zellen vorher geleert.
Auch habe ich in den Optionen das Häkchen bei "vor dem Überschreiben warnen" `rausgenommen.
Ich habe auch mal ein Sendkeys " ~" eingetragen.
Nix hat funktioniert.
Weiss jemand Rat ?
Gruß Dieter