Excelsheet nicht in gleicher Excel-Anwendung öffne

Bild

Betrifft: Excelsheet nicht in gleicher Excel-Anwendung öffne
von: Holger Wächter
Geschrieben am: 28.02.2005 10:44:27
Hallo,
ich möchte, wenn ich mein Excelsheet geöffnet habe und danach per Ddoppelklick auf ein weiteres Sheet klicke, mein Excelsheet es nicht zulässt, dass es in der selben Excel-Anwendung geöffnet wird.
Es soll dann entweder automatisch nochmal Excel öffnen und es darin starten, oder wieder schliessen.
Ich bedanke mich im vorraus.
MfG
Holger Wächter

Bild

Betrifft: AW: Excelsheet nicht in gleicher Excel-Anwendung öffne
von: Andre
Geschrieben am: 28.02.2005 10:48:44
Hi Holger,
kopiere folgenden Code in "Diese Arbeitsmappe":

Private Sub Workbook_Deactivate()
Dim n As String
If Workbooks.Count > 1 Then
    With ActiveWorkbook
    n = .FullName
    .Close savechanges:=False
    End With
    Dim xlApp As New Excel.Application
    On Error Resume Next
    xlApp.Workbooks.Open Filename:=n
    If Err.Number > 0 Then
        xlApp.Quit
    Else
        xlApp.Application.Visible = True
    End If
    Set xlApp = Nothing
End If
    
End Sub

Gruß Andre
Bild

Betrifft: AW: Excelsheet nicht in gleicher Excel-Anwendung öffne
von: Holger Wächter
Geschrieben am: 28.02.2005 10:58:14
Hallo,
spitze, das hat geklappt.
Danke.
MfG
Holger Wächter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excelsheet nicht in gleicher Excel-Anwendung öffne"