Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Excelsheet nicht in gleicher Excel-Anwendung öffne"
Summieren von Werten mit gleicher Schriftfarbe Spracheinstellung der Excel-Anwendung feststellen