Ergebnis aus Formel mit VBA übertragen

[Penny_95]

Hallo,
bin ein Neuling in der Programmierung mit VBA und so langsam am verzweifeln wieso mein VBA Programm den Wert nicht in eine andere Excel Datei überträgt. Die Datei die übertragen werden soll, resultiert aus einer =Zählenwenns Funktion, die Zellen aus einer Arbeitsmappe zählt. Z.B.: 05/20 -> also in 5 von 20 Zellen steht etwas drin. Diese ausgegebene Zahl soll per VBA in eine andere Excel übertragen werden, allerdings bekomme ich bei der anderen Excel Datei immer eine Null ausgegeben. PS. Die Datei habe ich bereits vorher geöffnet. Die Datei aus der der Wert kommt heißt "Mo_Kontaktliste_10Uhr_11Uhr" und soll in die Datei "Terminuebersicht".

Sub Übertragen()

ThisWorkbook.Save
Workbooks("Mo_Kontaktliste_10Uhr_11Uhr").Worksheets("ini").Range("H10").Copy Destination:=Workbooks("Terminuebersicht").Worksheets("1").Range("B10")
Workbooks("Mo_Kontaktliste_10Uhr_11Uhr").Worksheets("ini").Range("H11").Copy Destination:=Workbooks("Terminuebersicht").Worksheets("1").Range("B11")

ThisWorkbook.Close


End Sub

Viele Dank für Hilfe!!