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