Laufzeitfehler 13 - unverträgliche Typen
19.12.2005 15:29:23
gert
Excel-Version 2002.
folgenden Code wirt ausgeführt. Es erscheint an der gekennzeichneten Stelle
Laufzeitfehler 13 - unverträgliche Typen
Sub DD()
Dim Pfad$, Datei$, Ext$
Pfad = Worksheets("Dateneingabe").Range("b169")
If Dir(Pfad) "" Then
'Datei ist vorhanden
Else
'Datei ist nicht da
Ext = "*.bmp" 'Dateiextension ggf. anpassen
Datei = Application.GetOpenFilename("Bmp-Grafiken (" & Ext & "), " & Ext)
If Datei = False Then
MsgBox "Keine Datei gewählt"
Exit Sub
End If
Worksheets("Dateneingabe").Range("b169") = Datei '''Hier erscheint Fehlermeldung Laufzeitfehler 13
End If
'Me.Picture = LoadPicture(strFile)
Me.Picture = LoadPicture(Worksheets("Dateneingabe").Range("b169"))
Me.PictureSizeMode = fmPictureSizeModeClip
Was mache ich falsch?
Wer kann mir hier helfen?
Viele Grüsse
Gert