Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Makroimport Umlaute und Datumsformatierung
07.05.2019 11:22:55 Christopher
NotSolved
10.05.2019 16:54:11 Christian Selle
NotSolved

Ansicht des Beitrags:
Von:
Christopher
Datum:
07.05.2019 11:22:55
Views:
36
Rating: Antwort:
  Ja
Thema:
VBA Makroimport Umlaute und Datumsformatierung
Guten Tag, ich habe folgenden Code mit dem ich mehrere .txt Dateien importiere. Format: Text;Zahlen;Zahlen;Text(Umlaute, Sonderzeichen);Zahl;Zahl;Zahl;Text(Umlaute, Sonderzeichen);Währung(durch . getrennt);Text Sub test() Dim strPfad As String Dim FSO As Object Dim file Dim lngLR As Long strPfad = "C:\Testordner\" Set FSO = CreateObject("scripting.filesystemobject") For Each file In FSO.getfolder(strPfad).Files strFileName = file.Name strDestination = "A" & Cells(Rows.Count, 1).End(xlUp).Row + 1 With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & strPfad & strFileName, Destination:=Range( _ strDestination)) .Name = "Uebersicht" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Next End Sub Das Problem ist folgendes: Frage 1: Wie bekomme ich es hin das Umlaute und Sonderzeichen korrekt importiert werden? Frage 2: Insgesamt habe ich 10 Werte/Beschreibungen getrennt durch ";". Der neunte Wert beinhaltet Zahlen die durch "." getrennt sind. Beim importieren interpretiert Excel daraus Datumsangaben. Die Excel komplett als Text zu formatieren hilft nicht, eine Änderung der Landereinstellung ist auch nicht möglich. Kennt jemand einen Lösungsansatz?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Makroimport Umlaute und Datumsformatierung
07.05.2019 11:22:55 Christopher
NotSolved
10.05.2019 16:54:11 Christian Selle
NotSolved