Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

2 workbooks in einer Arbeitsmappe

2 workbooks in einer Arbeitsmappe
16.08.2006 17:50:49
Peter
hallo Excelfreunde
Peter hat mal wieder ein kleines Problem.
Ich habe in einer Datei unter "DieseArbeitsmappe" 2 Workbooks stehen.
Den Code habe ich hier im Forum erhalten.
Beim Öffnen der Datei funktioniert aber nur immer das erste "Macro"
Setze ich das untere nach oben, funktioiert auch nur das oberste.
Also beide alleine funktionieren.
Wer kann mir sagen was ich hier falsch mache und wie ich das ändern kann.
Code aus "Diesearbeitmappe2 ist
Option Explicit

Private Sub Workbook_Open()
Dim wkb As Workbook
Dim blnOpen As Boolean
Application.ScreenUpdating = False
For Each wkb In Workbooks
If LCase(wkb.Name) = "Mittelwerte.xls" Then
blnOpen = True
Exit For
End If
Next wkb
On Error GoTo Ende
If Not blnOpen Then
Workbooks.Open ThisWorkbook.Path & "\Mittelwerte.xls", UpdateLinks:=False
ThisWorkbook.Sheets(1).Cells.Calculate
ActiveWorkbook.Close savechanges:=True
End If
Ende:
On Error Resume Next
End Sub


Private Sub Workbook_Open()
Dim arr As Variant
Dim arr1 As Variant
Application.OnKey "+^q", "Makroein"   'Zuweisung um Makros einzuschalten, defenition im Modul 1
Application.OnKey "+^y", "Makroaus"   'Zuweisung um Makros auszuschalten, defenition im Modul 1
Call Makroaus 'Makros ausschalten bei öffnen der Datei
End Sub

Für eine Lösung währe ich dankbar.
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 workbooks in einer Arbeitsmappe
16.08.2006 18:01:50
Kurt
Hi,
es kann nur einen geben:
Option Explicit

Private Sub Workbook_Open()
Dim wkb As Workbook
Dim blnOpen As Boolean
Application.ScreenUpdating = False
For Each wkb In Workbooks
If LCase(wkb.Name) = "Mittelwerte.xls" Then
blnOpen = True
Exit For
End If
Next wkb
On Error GoTo Ende
If Not blnOpen Then
Workbooks.Open ThisWorkbook.Path & "\Mittelwerte.xls", UpdateLinks:=False
ThisWorkbook.Sheets(1).Cells.Calculate
ActiveWorkbook.Close savechanges:=True
End If
Ende:
On Error Resume Next
Dim arr As Variant
Dim arr1 As Variant
Application.OnKey "+^q", "Makroein"   'Zuweisung um Makros einzuschalten, defenition im Modul 1
Application.OnKey "+^y", "Makroaus"   'Zuweisung um Makros auszuschalten, defenition im Modul 1
Call Makroaus 'Makros ausschalten bei öffnen der Datei
End Sub

mfg Kurt
Anzeige
AW: 2 workbooks in einer Arbeitsmappe
16.08.2006 18:13:32
Peter
Hallo Excelfreund
Hat geklappt. Es kann nur einen geben.
Gruß Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige