Macro1 erst beenden dann Macro2
08.11.2006 22:14:38
Thomas
Die Macros funtionieren, Problem ist.
Das erste Macro läuft nicht bis zum Ende weil durch den Befehl
=INDIREKT(ADRESSE(A49+1;10;;;"spiele"))
in Tabelle2 das Macro2 ausgelöst wird.
Finde keinen weg es anders zu machen.
Brauche aber vom Macro1 den Druckbefehl und dann Macro2 drucken.
Kann man das irgendwie anders machen?
Gruß Thomas
Macro1()
ActiveCell.Offset(0, 9) = Format(Time, "hh:mm")
ActiveCell.Offset(0, 2).Interior.ColorIndex = 3
ActiveCell.Offset(0, 1).Interior.ColorIndex = 5
ActiveCell.Offset(0, -5).Copy
Sheets("Bögen").Range("E1").PasteSpecial xlPasteValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bögen").Visible = False
Sheets("Spiele").Select
Range("I1").Activate
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
Macro2()
Private Sub Worksheet_Calculate()
If [c72] <> [a3001] Then
MsgBox "c72 geändert!"
Blatt = Range("AB2").Value
Sheets(Blatt).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Spiele").Select
[a3001] = [c72]
End If
End Sub