Dialogfeld per Makro öffnen
02.03.2006 10:33:04
otto
ich möchte mit folgendem Code nacheinander zwei Dialogfelder mit unterschiedlicher Adresse anzeigen lassen, die Adresse ist aber immer die gleiche. Was ist daran falsch?
Private Sub Nein_Click()
Dim ziel, ziel1
ziel = "C:\Scanner"
ziel1 = "\\server\Kundenzeichnungen\"
ChDir ziel
dlgAnswer = Application.Dialogs(xlDialogOpen).Show & ziel '1.Dialogfeld
ChDir ziel1
dlgAnswer = Application.Dialogs(xlDialogOpen).Show & ziel1 '2.Dialogfeld
Unload Me
End Sub
Gruß otto
Anzeige