Gruppe
Extern
Problem
Wenn ich eine Text-Datei manuell importiere, wird das Semikolon als Feldseparator erkannt, steuere ich diese Vorgang über ein englischsprachiges Makro, ist dies nicht der Fall. Wie kann ich das ändern?
StandardModule: basMain
Sub Import()
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
Workbooks.OpenText sFile, _
DataType:=xlDelimited, Semicolon:=True
End Sub