Microsoft Excel VBA Summenfunktion funktioniert nicht

Question

Wenn ich den Code ausführen, möchte ich die Antwort der Summe in der Zelle angezeigt werden (F 27).

Aber die Summe Funktion funktioniert nicht nichts wird in die Zellen gedruckt, wenn ich den Code ausführen. Ich bekomme keine Fehler was auch immer.

Dies ist mein Code

Private Sub TextTotal1_Functions() 

Dim SumTotal As Long 

SumTotal = WorksheetFunction.Sum(Range("F9:F26")) 

Range("F27") = SumTotal 

Vielen Dank für Ihre Hilfe!

Answer 1

Meine Vermutung ist, dass Sie nicht das Blatt korrekt spezifiziert, versuchen Sie die folgenden

Private Sub TextTotal1_Functions() 

Dim SumTotal As Long 

SumTotal = Application.WorksheetFunction.Sum(Sheets("MySheetNameHere").Range("F9:F26")) 

Sheets("MySheetNameHere").Range("F27") = SumTotal 

Answer 2

Was ich in der Regel tun, wenn ich in Work VBA verwenden, so etwas wie dies in dem sofortigen Fenster zu schreiben ist:

?WorksheetFunction.Sum(selection) 

und um zu sehen, ob ich bekomme, was ich von der Auswahl erwarte.

Answer 3

könnte die Berechnung auf Manuell eingestellt ist, so legen Sie es auf Automatisch zurück:

Application.calcualtion = xlCalculationAutomatic