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:
775		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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