ich habe folgendes Makro gebaut, welches auszugsweise so aussieht:
Sub blätter_auslesen()
test = Worksheets("Start").Cells(5, 2).Value
If test = True Then
Call gesamt(eingabe_Personalplanung, "KST")
End If
test = Worksheets("Start").Cells(6, 2).Value
If test = True Then
Call gesamt(eingabe_Planung_Kostenstelle, "KST")
End If
Calculate
'Berechnung wird aktuell nicht ausgeführt
ActiveWorkbook.Save
'speichert nicht
Blätterlöschen
Speichern
End Sub
Probleme bereiten mir die Funktionen zum berechnen und speichern:
calculate: die Funktion wird nicht ausgefürt (soll in der ganzen Exceltabelle, über 30 Mappen, neu berechnen)
speichern: activeworkbook. save speichert den Stand nicht ab.
Da beides nicht greift vermute ich, dass ich grundsätzlich etwas falsch mache.
Kann mir jemand helfen?
Danke
Heiko