@ Mustafa bzgl. "Datei per Button/Klick öffnen"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim pfad Dim strWert As String strWert = Cells(ActiveCell.Row, 1).Value 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 Dim bytFrage As Byte bytFrage = MsgBox("Pech gehabt, zu dieser Ident-Nr. existiert noch kein Besuchsbericht." & vbLf & "Willst Du die Vorlage öffnen ?", vbYesNo + vbExclamation, "Uiuiuihhh, jetzt explodiert gleich der Rechner !!!") If bytFrage = vbYes + vbCritical Then Workbooks.Open "C:\Dokumente und Einstellungen\User\Eigene Dateien\BB + Schriftverkehr - 70.xlt" Range("D2") = strWert End If End Sub

Private Sub CommandButton1_Click() Dim pfad, strWert As String, bytFrage As Byte strWert = Cells(ActiveCell.Row, 1).Value 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 bytFrage = MsgBox("Pech gehabt, zu dieser Ident-Nr. existiert noch kein Besuchsbericht." & vbLf & "Willst Du die Vorlage öffnen ?", vbYesNo + vbExclamation, "Uiuiuihhh, jetzt explodiert gleich der Rechner !!!") If bytFrage = vbYes + vbCritical Then Workbooks.Open "C:\Dokumente und Einstellungen\User\Eigene Dateien\BB + Schriftverkehr - 70.xlt" Range("D2") = strWert End If End If End Sub

Jaaaaaaaaaaaaaaaaaaaaaaaaaaa ..... funktioniert fast :-)
Erst klappte es nicht. Dann habe ich ein wenig ausprobiert
und das "vbCritical" bei "If bytFrage = vbYes + vbCritical Then"
rausgenommen.
Nun wird der Wert auch nach D2 übernommen.
Ein mir unerklärliches Phänomen habe ich aber noch:
Ich habe ja meine Kundendatenbank "Firma_Junior_70.xls" offen in der
auch mein Button ist, mit dem ich das Makro starte.
Wenn ich auf meinem Rechner den Button klicke und sich eine Datei
öffnet (weil diese bereits existiert), ist diese offen UND die
Firma_Junior_70.xls auch. So soll es ja auch sein.
Wenn mein Kollege auf seinem Rechner den gleichen Schritt macht,
ist die Firma_Junior_70.xls aber plötzlich geschlossen.
Woran liegt das denn ? Ich hatte diese Frage schonmal vor 1-2 Wochen gestellt.
Wir haben beide WinXP mit SP2 und benutzen dieselbe Excel-Version.
Kann das damit zusammenhängen, daß die Firma_Junior_70.xls auf meinem Rechner
liegt und mein Kollege diese über Netzwerk öffnet ?
Wenn ich hier noch´n Tip bekommen kann, lasse ich Euch auch wieder in Ruhe ;-)
Es grüßt
Bernd
PS:
Kann ich bei meinem Kollegen irgendwie erzwingen, daß die Firma_Junior_70.xls
wieder im Vordergrund ist...mit Window("Firma_Junior_70.xls").Activate oder so
ähnlich. Wenn ja, wo baue ich das denn dann ein ? Bei vor oder hinter "End If"
bzw. "End Sub" macht er immer´ne Fehlermeldung.

Beliebteste Forumthreads (12 Monate)

@ Mustafa bzgl. "Datei per Button/Klick öffnen"

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@ Mustafa bzgl. "Datei per Button/Klick öffnen"

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread