Warum typ nicht verträglich?
28.11.2003 12:13:03
Micha
Bekomme einen Fehler beim Ausführen bei folgendem Code warum?
Private Sub CommandButton1_Click()
Dim ZuOeffnendeDatei As Variant
Dim isGrafik As Boolean, i As Long
ZuOeffnendeDatei = Application.GetOpenFilename( _
filefilter:="Grafik+Textdateien, *.jpg;*.bmp;*.gif;*.tif;*.cgm;*.pdf;*.doc;*.txt,", MultiSelect:=True)
If ZuOeffnendeDatei = False Then Exit Sub
Workbooks.Open Filename:=ZuOeffnendeDatei
ZuOeffnendeDatei.Open