GetOpenFilename - keine Auswahl
25.03.2022 18:01:30
VBnAth
bräuchte dringend Hilfe. Habe ein Makro das astrein funktioniert, so lange man im Dialogfenster für die Dateiauswahl nicht "Abbrechen" klickt.
Mit der eingefügten If-Anweisung funktioniert zwar das Abbrechen, aber wenn ich die Dateien auswähle, wird an dieser Stelle "Bezeichner unter Cursor nicht erkannt".
Vermutlich ein dummer kleiner Denkfehler, aber ich verzweifle gerade:
dateien = Application.GetOpenFilename("csv-Dateien (*.csv), *.csv", , "Bitte Dateien auswählen", MultiSelect:=True)
If dateien = False Then
MsgBox "Keine Datei ausgewählt"
Exit Sub
End If
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), local:=True
With ThisWorkbook.Sheets(1)
QuellName = ActiveSheet.Name
Sheets(QuellName).Move After:=Workbooks(ToolName).Worksheets(Worksheets.Count)
End With
Next i
Nath