✔ Excel aus CSV-Datei beim Öffnen aktualisieren

[MachtNix]

Danke Danke...

Habs gesendet.

 

[tombe]

Mir hat das was noch nicht gefallen und zwar das die zu öffnende Datei immer an einem bestimmten Platz mit einem bestimmten Namen vorhanden sein muss. Habe deshalb noch einen "Datei öffnen" Dialog eingebaut:

Dim Dummy() As String

datei = FreeFile

dateiname = Application.GetOpenFilename("CSV-Dateien (*.csv), *.csv,Text-Dateien (*.txt), *.txt")

If dateiname = False Then
    Exit Sub
Else
    Open dateiname For Input As #datei
End If

Do
    Line Input #datei, ReadLine
    If ReadLine <> "" Then
        Dummy() = Split(ReadLine, ";")
        Set nr = Worksheets(1).Range("D:D").Find(Dummy(6), LookIn:=xlValues)
        If Not nr Is Nothing Then
            Cells(nr.Row, 1) = Format(Dummy(3), "Standard")
            Cells(nr.Row, 2) = Format(Dummy(4), "Standard")
            Cells(nr.Row, 3) = Format(Dummy(5), "Standard")
        End If
    End If
Loop Until EOF(datei)
 
Close