richtiges tabellenblatt beim öffnen zeigen...

Forumthread: richtiges tabellenblatt beim öffnen zeigen...

09.03.2004 21:16:44

dirk

hallo excelperten!
ich habe folgendes Prob.
ich habe zwei dateien mit jeweils einem button der immer die gleich datei öffnen soll aber immer ein anderes tabellenblatt!
und nach dem öffnen die datei wo der button gedrückt wurde schliessen soll!
d.h.
datei 1 button 1 -> öffnet datei 3 tabellenblatt 1 und schliesst datei 1
datei 2 button 2 -> öffnet datei 3 tabellenblatt 2 und schliessr datei 2
es ist noch zu erwähnen das entweder datei 1 offen ist oder datei 2 beide
sind nie gleichzeitig offen!
das problem ist nicht die datei 3 zu öffnen sondern das richtige tabellenblatt anzusprechen da vielleicht per "If" geprüft werden muss welche datei offen ist und dann das dazugehörige tabellenblatt angezeigt wird und die datei 1 oder 2 schliesst
vielleicht kann mir jemand beim code helfen
ich hoffe ihr versteht mein prob wenn nicht bitte um feedback!
danke an alle gruss
dirk

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: richtiges tabellenblatt beim öffnen zeigen...

09.03.2004 21:30:36

Matthias G
danke..... ich teste gleich

09.03.2004 21:41:40

dirk
AW: richtiges tabellenblatt beim öffnen zeigen...

09.03.2004 21:41:01

Thorsten
super danke....

09.03.2004 21:43:47

dirk

AW: richtiges tabellenblatt beim öffnen zeigen...

09.03.2004 21:30:36

Matthias G

Hallo Dirk,
versuch mal folgendes:
Datei1:


Private Sub CommandButton1_Click()
Workbooks.Open ThisWorkbook.Path & "\Datei3.xls"
ActiveWorkbook.Sheets(1).Activate
ThisWorkbook.Close
End Sub

Datei2


Private Sub CommandButton2_Click()
Workbooks.Open ThisWorkbook.Path & "\Datei3.xls"
ActiveWorkbook.Sheets(2).Activate
ThisWorkbook.Close
End Sub

Hier im Code ist Datei3 im gleichen Verz. wie Datei1/2 (Thisworkbook.Path)
(müssen nicht notwendigerweise 2 Dateien sein)
Gruß Matthias

danke..... ich teste gleich

09.03.2004 21:41:40

dirk

----

AW: richtiges tabellenblatt beim öffnen zeigen...

09.03.2004 21:41:01

Thorsten

Hi,
folgenden Codes deinen Commandbuttons zuweisen:


Private Sub CommandButton1_Click()
Workbooks.Open ("C:\xxx\Datei3.xls")
'xxx durch den Pfad der Datei ersetzen
Worksheets(1).Activate
Workbooks("Datei1").Close
'yyy ist die Datei mit Commandbuttons
Application.DisplayAlerts = False 'hierdurch wird die Frage nach dem Speichern der alten Datei unterdrückt
End Sub

Der zweite commandbutton bekommt:


Private Sub CommandButton1_Click()
Workbooks.Open ("C:\xxx\Datei3.xls")
'xxx durch den Pfad der Datei ersetzen
Worksheets(2).Activate
Workbooks("Datei2").Close
Application.DisplayAlerts = False
End Sub

Hoffe das ist das, was du wolltest.
Gruß T.

super danke....

09.03.2004 21:43:47

dirk

...

Beliebteste Forumthreads (12 Monate)

richtiges tabellenblatt beim öffnen zeigen...

Forumthread: richtiges tabellenblatt beim öffnen zeigen...

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread