Oeffnen von Dateien,

27/09/2007 - 13:14 von Bume | Report spam
Hallo

Ich habe folgendes Problem mit Excel 2003:

Ich möchte 2 Excel-Dateien öffnen indem ich ganz einfach auf den Shortcut
klicke, aber ich möchte dass die Dateien in zwei verschiedenen Exceln
geöffnet werden. D.h wenn ich das erste Exel zu mach, muss das andere noch
offen sein.
Standartmàssig mach er Dateien in derselben Instanz auf, schliesse ich
diese, ist alles zu.

Bei Excel 2007 ist das genau so.

Es ist mir klar dass ich das ganze umgehen kann indem ich zweimal Excel
starte und dann über "Oeffnen" die Datei anklicke. Dies ist aber zu
aufwendig.

Besten Dank für einen Tip

Gruss
Bume
 

Lesen sie die antworten

#1 stefan onken
27/09/2007 - 13:58 | Warnen spam
On 27 Sep., 13:14, "Bume" wrote:
Hallo

Ich habe folgendes Problem mit Excel 2003:

Ich möchte 2 Excel-Dateien öffnen indem ich ganz einfach auf den Shortcut
klicke, aber ich möchte dass die Dateien in zwei verschiedenen Exceln
geöffnet werden. D.h wenn ich das erste Exel zu mach, muss das andere noch
offen sein.
Standartmàssig mach er Dateien in derselben Instanz auf, schliesse ich
diese, ist alles zu.

Bei Excel 2007 ist das genau so.

Es ist mir klar dass ich das ganze umgehen kann indem ich zweimal Excel
starte und dann über "Oeffnen" die Datei anklicke. Dies ist aber zu
aufwendig.

Besten Dank für einen Tip

Gruss
Bume



hallo Bume,
es gibt mE nur die Möglichkeit, das über ein Makro zu machen. Dazu
würde man eine Auswahl von Zellen (zB alle Zellen in Spalte B)
vorgeben und ein Makro automatisch starten, wenn eine dieser Zellen
aktiviert wird. In der Zelle steht dann der Pfad zur Datei (als Text,
nicht in Form eines Hyperlink). Das Makro sàhe so aus für Spalte B
(steht im Codemodul der Tabelle, dahin kommst du über rechtsklick aufs
Register der Tabelle, dann Code anzeigen):

Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
If Target.Column = 2 And Target <> "" Then
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Target
xl.Visible = True
'AppActivate ThisWorkbook.Name
End If
End Sub

Gruß
stefan

Ähnliche fragen