Private Sub CommandButton1_Click()
Dim pfad
pfad = "C:\Dokumente und Einstellungen\User\Eigene Dateien"
If Dir(pfad & "\" & Cells(ActiveCell.Row, 1).Text & ".xls") <> "" Then
ActiveWorkbook.FollowHyperlink Address:=pfad & "\" & Cells(ActiveCell.Row, 1).Text & ".xls"
Else
'msgbox "Datei existiert nicht"
MsgBox ("Datei existiert nicht")
'Call CommandButton2_Click
End If
End Sub
Was muß ich bei dem Befehl MsgBox ändern, daß diese wie folgt aussieht:
Text 1.Zeile: Datei existiert nicht
Text 2.Zeile: Vorlage öffnen ?
Button 1: NEIN (bei klick schließt die MsgBox)
Button 2: JA (Datei C:\Vorlage.xls wird geöffnet)
Es Dank schon jetzt
Bernd
PS: Wenn mir jemand helfen kann, es aber per Forum zu kompliziert wäre, dann rufe ich denjenigen gerne auch an. Tel.-Nr. per Email reicht...