AW: Automatisch berechnen nur in einem Tabellenblatt
21.06.2009 00:42:03
Gerrit
Ok ich habe
Private Sub Worksheet_Activate()
Calculate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
kopiert und in den Editor meines entsprechenden Blattes eingefügt.
Mit "anderen Makro" meine ich, dass ich in den Modulen folgende Makros stehen habe:
Sub Makro1()
Dim shQuelle As Worksheet
Dim shZiel As Worksheet
ActiveSheet.Unprotect Password:="passwort"
Dim wks
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set shQuelle = ActiveSheet
Workbooks.Add
Set shZiel = ActiveSheet
shQuelle.Cells.Copy
shZiel.Cells(1, 1).PasteSpecial xlPasteValues 'Nur Werte übernehmen
shZiel.Cells(1, 1).PasteSpecial xlPasteFormats 'Format übernehmen
Application.CutCopyMode = False
Range("A1").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show
ActiveSheet.Protect Password:="passwort" 'Schutz für neue Mappe
'-------Mappe1 ändern in den Namen Deiner Org. Mappe---------
Workbooks("FM-ASSIST").ActiveSheet.Protect Password:="passwort" 'Schutz alte Mappe
End Sub
Sub Schaltfläche1_KlickenSieAuf()
If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Activate
Else
Sheets(ActiveSheet.Index - 1).Activate
End If
ActiveSheet.Calculate 'Blatt neu berechnen
End Sub
Sub Schaltfläche2_KlickenSieAuf()
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
Else
Sheets(ActiveSheet.Index + 1).Activate
End If
ActiveSheet.Calculate 'Blatt neu berechnen
End Sub
Grüße
Gerrit