Hey zusammen,

ich muss mich seit einigen Tagen mit VBA Excel Makros beschäftigen und komme bei meinem aktuellen Projekt nicht weiter.

Folgendes Problem:

In einem vorhanden funktionierendem Report Makro kann eine .csv Datei geöffnet, eingelesen und beim Drücken des Start Buttons ausgewertet werden. Mein Ziel ist es das man mehrere csv Dateien auswählen kann und nacheinander eingelesen werden. Beim Drücken des Start Buttons sollen dann alle csv Dateien dann wieder in einzelnen ausgewerteten Berichten ausgegeben werden.

Hier mal der Grundcode fürs Datei öffnen einer einzelnen csv datei:

Private Sub Datei_öffnen_Button_Click()


    Dim fname_open As Variant
    Dim filename_open As String
    
    fname_open = Application.GetOpenFilename()
    
    For i = ActiveSheet.QueryTables.Count To 1 Step -1
      ActiveSheet.QueryTables(i).Delete
                

    If fname_open = False Then
            Exit Sub
    ElseIf fname_open <> False Then
        
        filename_open = Dir(fname_open)
        TextBox1.Text = filename_open
                                                                                                
        MsgCode = MsgBox("'" & filename_open & "' wird nun eingelesen!", _
                        vbOKCancel + vbInformation, "Microsoft Office Excel")
                    
            If MsgCode = vbCancel Then
                Exit Sub
            End If
    
        
        
        Application.DisplayAlerts = False
        For Each WS In Worksheets
            If WS.Name <> "Hauptmenü - Report" Then
                WS.Delete
            End If
        Next WS
        Application.DisplayAlerts = True
        
                                                                                               
        Workbooks.OpenText filename:=fname_open, Origin:=65001, StartRow:=1, _
           DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Local:=True, _
           Semicolon:=True, FieldInfo:=Array(1, 1)
        
        ActiveSheet.Move after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
        Sheets("Hauptmenü - Report").Select
        
        Start_Button.Enabled = True
        
    End If
    
    
    Call Anpassung_META_AUSLEITUNG
    
    
    Sheets(1).Select
    
    
End Sub


Ich Danke schonmal

Grüße Locke