Benötigt ein Makro, um alle FIBU-Konten zu summieren und dabei einige spezifische GLs auszuschließen

Question

Ich benötige ein Makro, das alle Spalten H ohne Konto # 52202001 und 51701001 (aus Spalte F) summiert.

Ich weiß, dass ich diese Formel

=SUMIFS($H$15:$H$12729,$F$15:$F$12729,"<> 52202001", $F$15:$F$12729,"<> 51701001") 

verwenden könnte, aber ich würde es in einem Makro wie so ich es jedes Mal, wenn wir unsere Konten aktualisieren ausführen können.

Danke,

Data

Answer 1

MsgBox ActiveSheet.Evaluate(_ 
"SUMIFS($H$15:$H$12729,$F$15:$F$12729,""<> 52202001"", $F$15:$F$12729,""<> 51701001"")") 

EDIT: in dem Arbeitsblatt Codemodul für das Blatt mit Daten:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim v 
    If Not Application.Intersect(Target, Me.Columns(1)) Is Nothing Then 

     v = Me.Evaluate("SUMIFS($H$15:$H$12729,$F$15:$F$12729,""<> 52202001"", $F$15:$F$12729,""<> 51701001"")") 

     ThisWorkbook.Sheets("Sheet2").Range("A1").Value = v 

    End If 

End Sub