Datei per Button/Klick öffnen - Die Erste
30.03.2006 11:16:55
Bernd
am 17.03.2006 hatte mir ransi bei meinem "Datei per Button/Klick öffnen"-Problem geholfen.
Seine Lösung habe ich wie folgt angepaßt:
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
Nun habe ich folgendes Problem:
Wenn ich in einer Zeile meiner Kunden-Datenbank (https://www.herber.de/bbs/user/32416.xlt) bin und den Button "BB öffnen" anklicke, öffnet sich die entsprechende Datei (falls vorhanden).
Leider schließt sich nach dem öffnen der entsprechenden Datei automatisch meine Kunden-Datenbank. Dieses sollte nicht so sein.
Woran liegt das bzw. was muß ich ändern ?
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...
Anzeige