Thema Datum  Von Nutzer Rating
Antwort
16.12.2020 12:02:44 Peter
NotSolved
Blau nach CSV import Umlaute falsch Übertragen
16.12.2020 12:03:47 Peter
NotSolved
16.12.2020 12:44:32 Mase
NotSolved
16.12.2020 16:49:28 volti
*****
Solved
16.12.2020 17:08:49 Mase
NotSolved
16.12.2020 18:08:18 volti
NotSolved
17.12.2020 14:10:11 Mase
NotSolved
17.12.2020 14:36:03 volti
NotSolved
17.12.2020 14:57:48 Mase
NotSolved
16.12.2020 19:44:27 Peter
NotSolved
17.12.2020 16:34:52 Peter
NotSolved

Ansicht des Beitrags:
Von:
Peter 		Datum:
16.12.2020 12:03:47		 Views:
728		 Rating:
     
Antwort:
  Ja
Thema:
nach CSV import Umlaute falsch Übertragen 
Sub ImportTabelle1()
    Dim fd As Office.FileDialog
    Dim WSh As Worksheet
    Dim mldg As Variant
         
        
  
    Set WSh = ActiveWorkbook.Sheets("Tabelle1")    'ggf. anpassen
    'Set WSh = ActiveSheet                          'Oder das gerade aktive Blatt nehmen
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
            .Filters.Clear
            .Title = "Select a CSV File"
            .Filters.Add "CSV", "*.csv", 1
            .AllowMultiSelect = False
               
        Dim sFile As String
        If .Show = True Then
            sFile = .SelectedItems(1)
        End If
           
    End With
       
    ' Import CSV from FileDialog
    If sFile <> "" Then
     
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
            .Calculation = xlCalculationManual
        End With
         
        Open sFile For Input As #1
            row_number = 1
            Do Until EOF(1)
                Line Input #1, LineFormFile
                LineItems = Split(LineFormFile, ";")
                WSh.Cells(row_number, 1).Resize(1, UBound(LineItems) + 1) = LineItems
                row_number = row_number + 1
            Loop
        Close #1
    End If
 
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
16.12.2020 12:02:44 Peter
NotSolved
Blau nach CSV import Umlaute falsch Übertragen
16.12.2020 12:03:47 Peter
NotSolved
16.12.2020 12:44:32 Mase
NotSolved
16.12.2020 16:49:28 volti
*****
Solved
16.12.2020 17:08:49 Mase
NotSolved
16.12.2020 18:08:18 volti
NotSolved
17.12.2020 14:10:11 Mase
NotSolved
17.12.2020 14:36:03 volti
NotSolved
17.12.2020 14:57:48 Mase
NotSolved
16.12.2020 19:44:27 Peter
NotSolved
17.12.2020 16:34:52 Peter
NotSolved