Thema Datum  Von Nutzer Rating
Antwort
Rot Parameter für Workbooks.OpenText richtig bestimmen
 14.06.2021 15:30:14 Sam
NotSolved
14.06.2021 20:44:08 Gast30078
NotSolved
14.06.2021 23:58:33 Gast8951
NotSolved

Ansicht des Beitrags:
Von:
Sam		 Datum:
14.06.2021 15:30:14		 Views:
523		 Rating:
     
Antwort:
  Ja
Thema:
Parameter für Workbooks.OpenText richtig bestimmen

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

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 Parameter für Workbooks.OpenText richtig bestimmen
 14.06.2021 15:30:14 Sam
NotSolved
14.06.2021 20:44:08 Gast30078
NotSolved
14.06.2021 23:58:33 Gast8951
NotSolved