Thema Datum  Von Nutzer Rating
Antwort
04.03.2015 09:52:03 Pirat1337
NotSolved
04.03.2015 10:17:06 Gast17293
NotSolved
Rot Einlesen von Datenbereich aus CSV und Max-Wert ausgeben
 04.03.2015 12:06:19 Pirat1337
NotSolved
05.03.2015 15:46:45 Gast18612
NotSolved

Ansicht des Beitrags:
Von:
Pirat1337		 Datum:
04.03.2015 12:06:19		 Views:
738		 Rating:
     
Antwort:
  Ja
Thema:
Einlesen von Datenbereich aus CSV und Max-Wert ausgeben

Eh, danke...könnt ihr helfen, wie?

 

Import ginge vlt so? (Habe ich aus dem Inet)

 For Each f In fso.GetFolder(CSVPFAD).Files
        If LCase(Right(f.Name, 3)) = "csv" Then
            Workbooks.OpenText Filename:=f.Path
            Set wbSource = ActiveWorkbook
            On Error Resume Next
            Set ws = wbTarget.Worksheets(f.Name)
            If Err <> 0 Then
                Set ws = wbTarget.Worksheets.Add
                ws.Name = f.Name
                ws.Range("A:ZZ").Clear
            End If
            wbSource.Worksheets(1).Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Semicolon:=True, TrailingMinusNumbers:=True
            wbSource.Worksheets(1).Range("A:ZZ").Copy Destination:=ws.Range("A1")
            wbSource.Close False
        End If
    Next

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
04.03.2015 09:52:03 Pirat1337
NotSolved
04.03.2015 10:17:06 Gast17293
NotSolved
Rot Einlesen von Datenbereich aus CSV und Max-Wert ausgeben
 04.03.2015 12:06:19 Pirat1337
NotSolved
05.03.2015 15:46:45 Gast18612
NotSolved