Laufzeitfehler 13
23.01.2018 14:57:20
Georg
Laufzeitfehler 13, Typen unverträglich. Wer kann mir den Fehler erklären bzw beheben in der Zeile : If strFileName = False Then Exit Sub
danke.
Sub Test()
'** Dateifilter definieren
'strfilter = "Excel-Dateien(*.xl*), *.xl*"
strfilter = "Excel File mit Makro (*.xlsm), *.xlsm"
'Pfad = "Q:\Personal Leitung\Abrechnung\Gehaltsläufe\2016\BPx\" 'schließenden "\" beachten
'Datei = "201_Murnau_Personalabrechnung_2016.xlsm"
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll, wenn C:\ geöffnet werden _
soll, _
einfach weglassen
ChDrive "Q"
ChDir "Q:\Personalwesen\Sonstige\Personalplanung\Entwürfe_Temp(GR)"
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strfilter)
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
End Sub
Anzeige