title image


Smiley ich würde es so machen :


Option Explicit





Private Const REG_LOCAL = "GeheimBlatt_28746"

Private Const LETZTES_BERECHNUNGSDATUM = "A1"

Private Const ZU_BERECHNENDE_MAPPE = "d:\test\mappe2.xls"



' Es wird beim Öffnen der Exceldatei ein unsichtbares Blatt eingebaut

' Auf z.b. auf A! wird dort das letzte Berechnungsdatum gespeichert

' Code auf "DieseArbeitsmappe"



Private Sub Workbook_Open()

   Dim Ws As Worksheet

    

    On Error Resume Next

    Err.Clear

    Set Ws = Worksheets(REG_LOCAL)  ' existiert Merkblatt ?

    If Err.Number <> 0 Then

       Set Ws = Sheets.Add          ' nein neues Blatt wird eingefügt

       Ws.Name = REG_LOCAL          ' Name vergeben ( den gibts bestimmt nicht n deiner Mappe

       Ws.Visible = xlSheetVeryHidden ' Blatt wird unsichtbar gemacht

       Ws.Range(LETZTES_BERECHNUNGSDATUM) = Now ' Heutiges Datum wird gespeichert ( geht auch mit Date )

       Calculate_Externe_Mappe ' und die externe Mappe wie auch die eigene werden berechnet

       Exit Sub ' das war es

    End If

    

    If Not IsDate(Ws.Range(LETZTES_BERECHNUNGSDATUM)) Then _

      Ws.Range(LETZTES_BERECHNUNGSDATUM) = Now: Calculate_Externe_Mappe: Exit Sub  ' gültiges datum gespeichert ?

    

    If Month(Now) > Month(Ws.Range(LETZTES_BERECHNUNGSDATUM)) Then _

      Calculate_Externe_Mappe  ' wurde in diesem Monat schon berechnet ??? nein --> Berechnung

    

    

    Set Ws = Nothing

    

End Sub



Private Sub Calculate_Externe_Mappe()

Dim Wb As Workbook

   On Error Resume Next: Err.Clear

   Set Wb = Workbooks.Open(ZU_BERECHNENDE_MAPPE) ' Öffnen der externen Mappe

   If Err.Number <> 0 Then _

     MsgBox "Datei : " & ZU_BERECHNENDE_MAPPE & " wurde nicht gefunden ... ", vbCritical, "Fehler": Exit Sub

   

   Application.CalculateFull  ' berechnung

    

   Wb.Close SaveChanges:=True  ' Speicherung



Set Wb = Nothing

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: