Ich habe folgenden Codeauschnitt:
Dim Pfad
Pfad = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Wählen Sie die gewünschten Importdaten aus!")
If Pfad = False Then
Application.ScreenUpdating = True
Exit Sub
End If
Damit möchte ich die zu importierende Datei öffnen. Der If-Block dient dazu die Sub zu verlassen, falls auf abbrechen gedrückt wird.
Das ganze funktioniert auf den meisten Computern. Einige haben jedoch Probleme mit dem If-Block und brechen die Sub immer ab. Sobald ich den If-Block rausnehme, funkioniert das ganze wieder.
Hat jemand eine Idee woran das liegen könnte?
Danke und Gruss,
Philip