kann mir jemand helfen????
habe eine "open" Anweisung.
Von einer Datei ("Schülerbeurteilungen") aus öffne ich die folgende Datei. Diese enthält die unten angegebene "open" Anweisung.
Diese nun geöffnete Datei soll jetzt automatisch die Datei "Schülerbeurteilungen" schließen. (funktioniert auch)
Das problem ist nur das alle nachfolgenden Befehle nicht mehr ausgeführt werden. Kann mir jemand sagen wie ich dieses Problem lösen kann?
Hier der Code:
Private Sub Workbook_Open()
Application.OnKey "{ESC}", "" 'Esc-Taste deaktivieren
Application.OnKey "^{BREAK}", "" 'STRG + Pause deaktivieren
MenüLösche
ActiveSheet.Shapes("Rechteck 1").Select
ActiveWindow.Zoom = True
If Range("VERTRG_Z").Value = "FALSCH" Then VERTRAG.Show
'Sheets("Start").ScrollArea = "A1"
Sheets("Start").Range("A1").Select
Berechnung
Application.ScreenUpdating = False
SchülerbeurteilungenSchließen
Application.ScreenUpdating = True
MsgBox ("Makro geht weiter") 'Ab hier läufts nicht mehr weiter
End Sub
Sub SchülerbeurteilungenSchließen()
Dim WB As Workbook
For Each WB In Application.Workbooks
If WB.Name = "Schülerbeurteilungen.xls" Then
WB.Close False 'wenn nicht gespeichert werden soll, sonst True
End If
Next
End Sub
Gruß
Felix