code läuft nicht in xl2000
23.01.2006 14:52:48
Korl
ich habe mit den nachfolgenden Code, wenn er in xl2000 laufen soll.
Private Sub CommandButton2_Click()
Dim strPfad
On Error Goto zu
With Application.FileDialog(msoFileDialogFolderPicker) ' den in Klammer stehenden Teil, wird angemäckert!
.AllowMultiSelect = False
.Show
strPfad = .SelectedItems(1)
End With
Range("B9") = strPfad & "\"
Exit Sub
zu:
End Sub
Die Stelle wo er hängen bleibt habe ich markiert.
Ach so, der Code erzeugt nur ;-) einen Pfad.
In xl2002 läuft er.
Kann mir bitte hier jemand helfen?
Gruß Korl