@MichaV und Andere:
03.07.2006 15:47:18
Daniel
Micha hat mir das folgende Makro umgeändert. Es soll eine .txt Datei importiert werden und vor dem Import sollen die Dezimalzeichen von Punkt auf Komma geändert werden.
Allerdings kommt bei mir ein Fehler:
Sub oder
Function nicht definiert bei Zeile 6, QueryTables(1)...
Weiß da jemand weiter?
Danke für Hilfe,
Daniel
Sub Importfax1()
Application.ScreenUpdating = False
Dim rng As Range
Sheets("RTD1-fax").Select
Range("A1").Select
QueryTables(1).TextFileDecimalSeparator = "." '<---- neue Zeile
Selection.QueryTable.Refresh BackgroundQuery:=False
For Each rng In ActiveSheet.Range("A5:I16")
If Not IsEmpty(rng) Then
rng.Formula = rng.FormulaLocal
End If
End Sub