Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

richtiges tabellenblatt beim öffnen zeigen...

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
Anzeige
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
Anzeige
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.
Anzeige
super danke....
09.03.2004 21:43:47
dirk
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige