AW: SORRY, ich meinte 1.Datei schließt sich ?
31.03.2006 08:40:49
Bernd
Danke für Deine Tip - funktioniert auch fast.
Komisch ist aber, daß bei Dir beide Dateien geöffnet sind, bei mir aber nicht.
Bei mir sieht das ganze dann wie folgt aus:
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
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"
End If
Windows("Firma_Junior_70.xls").Activate
End Sub
Mit Windows("Firma_Junior_70.xls").Activate habe ich ja nun erreicht, daß diese Datei wieder im Vordergrund ist. Okay, die Datei ist jetzt wieder geöffnet, aber sie sollte nicht im Vordergrund sein, sondern im Hintergrund. Im Vordergrund soll die Datei sein, die ich mit ActiveWorkbook.FollowHyperlink Address:=pfad & "\" & Cells(ActiveCell.Row, 1).Text & ".xls" öffne.
Um das verständlich zu machen:
Ich arbeite in meiner Kundendatenbank "Firma_Junior_70.xls". Wenn ich den Besuchsbericht zu einem bestimmten Kunden öffnen möchte, gehe ich in die Zeile, wo der Kunde steht und öffne den Besuchsbericht per Button. Wenn der Besuchsbericht existiert, soll sich dieser öffnen und im Vordergrund sein, damit ich Eingaben machen kann. Keine Ahnung, warum das bei Dir funktioniert und bei Dir nicht.
Jedenfalls funktioniert Windows("Firma_Junior_70.xls").Activate bei mir nur bedingt, weil ich diese Datei ja im Hintergrund haben möchte :-(
Hast Du sonst noch irgendeinen Tip ?
Bernd