kann ich per Makro in einer bestimmten .txt Datei alle Punkte druch Komma ersetzen. Am besten noch so, dass das nur von Zeile x bis y der Textdatei passiert.
Danke für Tipps!
Daniel
Sub Importfax1()
Application.ScreenUpdating = False
Dim rng As Range
Sheets("RTD1-fax").Select
Range("A1").Select
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
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