Hallo,
ich möche den Code so ändern, dass Semikolons und nicht Kommas als Trennzeichen anerkannt werden.Ansonsten werden die Zahlen falsch übernommen.Ausserdem will ich, dass bei der Auswahl nur csv Dateien zum Import ausgewählt werden können.
Ich glaube, dass ich die Parameter im lilanen Code (siehe unten) verändern muss, aber es ändert sich nichts wennn ich das tue.
Ich hoffe dass jemand ein paar Tipps für mich hat
LG
Sub ImportText()
Range("C2:C50").ClearContents
Range("D2:D50").ClearContents
Dim Datei As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
fileFilterPattern = "Text Files (*.txt *),*.txt*"
fileToOpen = Application.GetOpenFilename(fileFilter)
If fileToOpen = False Then
MsgBox "Keine Datei ausgewählt"
Else
Workbooks.OpenText _
Filename:=fileToOpen, _
StartRow:=2, _
DataType:=xlDelimited, _
Tab:=True
Set wbTextImport = ActiveWorkbook
Set wsMaster = ThisWorkbook.Worksheets(5)
wbTextImport.Worksheets(1).Range("A2").CurrentRegion.Copy wsMaster.Range("C2")
wbTextImport.Close False
End If
Application.ScreenUpdating = True
End Sub
|