Hab fogendes Problem mit dem ich nicht zurechtkomme. Wenn ich Mappe1 (mit u.st. Makros) schließe, aber eine andere Mappe geöffnet ist, wird noch ein Teil des Makros ausgeführt. In die andere Mappe wird in B1 T E R M I N E eingeschrieben und Mappe1 wird wieder geöffnet. Kann mir jemand helfen diesen Vorgang abzustellen?
Besten Dank für eure Hilfe.
Gruß
Karsten
Sub zu_Termine()
On Error Resume Next
Rows.Hidden = FalseEnd
Sheets("Lehrbericht").Select
Range("b1").Select
ActiveCell.FormulaR1C1 = "T E R M I N E"
'usw.
In "DieseArbeitsmappe" stehen in Mappe1 folgende Befehle:
Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "{F3}", "schreibe_TERMINE"
Application.OnKey "^{ }", "Strg_xx"
Application.OnKey "^{#}", "finde_Inhalt_in_B_ohne_Datum"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F3}"
Application.OnKey "^{ }"
End Sub
Private Sub Workbook_Open()
Call ZeitInZelle
' Notizen_öffnen
zu_Termine
Dim objSheet As Worksheet
Dim objOLEObject As OLEObject
Dim lngIndex As Long
gblnInit = True
For Each objSheet In ThisWorkbook.Worksheets
For Each objOLEObject In objSheet.OLEObjects
If TypeOf objOLEObject.Object Is MSForms.ComboBox Then
With objOLEObject.Object
.ListIndex = -1
.Clear
For lngIndex = 1 To 12
.AddItem MonthName(lngIndex)
Next
End With
End If
Next
Next
gblnInit = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Programm_abschiessen
End Sub
Diese Befehle auf Blatt "Lehrbericht" könnten vielleicht ebenfalls eine Rolle spielen:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = Range("a1") Then
Dim zelle As Range
For Each zelle In Range("a2:a1000")
If zelle.Value = Range("a1").Value Then
zelle.Select
Exit Sub
End If
Next zelle
End If
If Target.Address = "$B$1" Then
Set rngBereich = Nothing
Set rng = Nothing
B1_Befehl
End If
End Sub