Thema Datum  Von Nutzer Rating
Antwort
Rot XLS Import über Userform
24.09.2021 15:28:50 Dalia
NotSolved
25.09.2021 18:29:19 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Dalia
Datum:
24.09.2021 15:28:50
Views:
938
Rating: Antwort:
  Ja
Thema:
XLS Import über Userform

Guten Mittag Zusammen, ich möchte über meine Userform 3 dateien einlesen und die Inhalte ab A2 - XX in 3 vorhandene Arbeitsblätter kopieren. 
Ist das so überhaupt möglich ? 

Leider habe ich nichts passendes finden können das ich für meine Zwecke anpassen kann.. 

Vielleicht kann mir jemand auf die Sprünge helfen wie ich von hier ab weitermache ? 

Bisheriger Code (Habe nur die Userform programmieren können) : 
 

Private Sub Button_SelectFile_Click()
    
    'Öffne Dateiauswahl im gewünschten Format'
    SelectedFile = Application.GetOpenFilename(fileFilter:="Excel-Dateien (*.xls; *.xlsm; *.xlsx),*.xls; *.xlsm; *.xlsx", Title:="Bitte Datei auswählen", MultiSelect:=True)
    
    'Bei keiner Dateiauswahl oder abgebrochenem Dialog'
    If VarType(SelectedFile) = vbBoolean Then
        If SelectedFile = False Then
            Auswertung.Label_SelectedFile.Caption = "Ausgewählte Dateien: Keine"
            Exit Sub
        End If
    Else
        Auswertung.Label_SelectedFile.Caption = "Ausgewählte Dateien: " & Join(SelectedFile, "; ")
    End If
End Sub

Private Sub Button_Start_Click()
     
    Dim Box
    
    'Falls keine Dateiausgewählt wurde'
    If VarType(SelectedFile) = vbEmpty Then
        Box = MsgBox("Bitte wählen Sie mindestens eine Datei aus.", vbOKOnly, "Keine Datei ausgewählt")
        If Box = vbOK Then
            Exit Sub
        End If

    Else
        Box = MsgBox("Möchten Sie das Programm starten?", vbOKCancel)
        If Box = vbOK Then
            'Starten'
            Call Generate_Database
        Else
            Exit Sub
        End If
    End If
    
End Sub

 

Mit Call Generate_Database würde ich das ganze dann gerne starten.. 

 

Danke für jeden Tip ! 

Liebe Grüße :) 



 

 


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
Rot XLS Import über Userform
24.09.2021 15:28:50 Dalia
NotSolved
25.09.2021 18:29:19 Mackie
NotSolved