Thema Datum  Von Nutzer Rating
Antwort
03.11.2017 22:13:24 Mueller.De
NotSolved
Blau CSV-Datei in zweitem Sheet in Excel einfügen
 03.11.2017 23:06:36 Gast44591
NotSolved
04.11.2017 17:31:31 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Gast44591		 Datum:
03.11.2017 23:06:36		 Views:
569		 Rating:
     
Antwort:
  Ja
Thema:
CSV-Datei in zweitem Sheet in Excel einfügen

Hallo,

erstmal fügen wir brav Option Explicit am Modulanfang ein und deklarieren alle Variablen, lies Dir dazu mal das durch:

https://msdn.microsoft.com/en-us/VBA/Language-Reference-VBA/articles/declaring-variables

Dann mußt Du auch beim Split-Loop das TabBlatt referenzieren:

Option Explicit

Public Sub einlesen()
   Dim lngCount As Long, lngIndex As Long, lngIndex2 As Long
   Dim strTemp As String
   Dim astrText() As String
   
   lngCount = 1 'Sheets(1).UsedRange.Rows.Count
   
    Open "C:\Users\Kathan\Desktop\Art.23669_Kolben_Technikerarbeit.csv" For Input As #1
    Do While Not EOF(1)
         Line Input #1, strTemp
         Worksheets(1).Cells(lngCount, 1).Value = Replace(strTemp, vbTab, ";") '// Oder bei Bedarf auf Worksheet2 s.u. Split..
         lngCount = lngCount + 1
    Loop
    Close #1
                  
    For lngIndex = 1 To lngCount
        astrText = Split(Worksheets(1).Cells(lngIndex, 1).Value, ";")
        For lngIndex2 = 0 To UBound(astrText)
           Worksheets(2).Cells(lngIndex, lngIndex2 + 1).Value = astrText(lngIndex2)
        Next
    Next
End Sub

Die Schleifen könnte man mit ewas Geschick auch noch minimieren...

Gruß,

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
03.11.2017 22:13:24 Mueller.De
NotSolved
Blau CSV-Datei in zweitem Sheet in Excel einfügen
 03.11.2017 23:06:36 Gast44591
NotSolved
04.11.2017 17:31:31 Gast7777
NotSolved