Clever-Excel-Forum

Hallo Leute

ich habe folgenden Code in Verwendung, mit dem ich Dateien zum Import auswähle. Nach dem Import erscheint dann Userform2 als Erfolgsmeldung.
Funktioniert auch alles super.

Aber wenn ich auf "Abbrechen" bei der Dateiauswahl klicke, dann erscheint trotzdem die Userform2 als Erfolgsmeldung zum Dateiimport.

Wo habe ich denn den "Bug" im Code? Oder eine If-Schleife vergessen?

Beim Abbruch hätte ich natürlich lieber z.B. eine Userform3, die dann den Abbruch bestätigt oder so, dass gar nichts passiert und einfach wieder das Tabellenblatt erscheint und nicht die Userform2...

Kann mir jemand helfen?

Code:
'Führt alle Tabellenblätter der ausgewählten Excel-Dateien in dieser Arbeitsmappe zusammen

Sub Dateien_öffnen()

Dim wbQuelle As Workbook

Dim sh As Worksheet

Dim arrdateien As Variant

Dim cntDatei As Long

'Screenupdating deaktivieren

Application.ScreenUpdating = False

'Dateien auswählen

arrdateien = Application.GetOpenFilename(filefilter:="Excel-Dateien (*.xls*),*.xls*", MultiSelect:=True)

    'Wurde mindestens eine Datei ausgewählt?

    If IsArray(arrdateien) Then

        'Schleife über alle ausgewählten Dateien

        For cntDatei = 1 To UBound(arrdateien)

            'Aktuelle Arbeitsmappe öffnen

            Set wbQuelle = Workbooks.Open(Filename:=arrdateien(cntDatei), UpdateLinks:=False, ReadOnly:=True)

            'Schleife über alle Tabellenblätter

            For Each sh In wbQuelle.Worksheets

                'Aktuelles Tabellenblatt kopieren

                If InStr(sh.Name, "Auswertung") Then

                    sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

                    eingabe = InputBox("Bitte eine eindeutige Bezeichnung für das importierte Tabellenblatt wählen (z.B. Marke + Kennzeichen):")

                    ActiveSheet.Name = eingabe

                End If

            Next sh

            'Aktuelle Arbeitsmappe schließen

            wbQuelle.Close savechanges:=False

        Next cntDatei

    End If

'Screenupdating aktivieren

Application.ScreenUpdating = True

UserForm2.Show

Tabelle1.Activate

End Sub

Hi,

Du hast im Code keinen Bug. Grundsätzlich läuft jeder Code bis zum Ende durch - es sei denn, Du steigst vorher mittels Exit Sub aus.
Das ist bei Dir nicht der Fall, daher wird am Ende das Userform2 geöffnet.
Ergo: Bau eine Abbruchbedingung ein - entweder direkt im Code an gewünschter Stelle mit Exit Sub oder aber über eine Variable, über deren Inhalt Du dann am Ende entscheidest, welches Userform Du öffnen möchtest.

Hallo,

Du hast doch schon eine If-Abfrage drin, so dass Du nur die Zeile UserForm2.Show über das End If verschieben brauchst. Wink

Gruß Uwe

Danke Uwe!!!
hat natürlich funktioniert!

manchmal sieht man den Wald vor lauter Bäumen nicht ....

junjor

{Boris}

Kuwer

junjor