Problem mit Verknüpfung zwischen Arbeitsmappen in VBA

Ich habe ein größeres Problem mit der Verwendung von VBA:

Ich soll quasi ein Mini CRM erstellen, bei dem Besuchsberichte aus einer Exceldatei mit Tagesberichten generiert werden

-Ich habe zwei Arbeitsmappen; in der einen sollen die Besuchsbereichte für unseren Außendienst(Besuchsberichte.xls) generiert werden, in der anderen stehen Angaben zum Kunden, Datum, Ergebnisse, etc.

-Mein Ziel ist es in der Mappe Besuchsberichte.xls eine Maske zu erstellen, in die die KW eingegeben wird.
-Dann soll in der CRM.xls nach der Kalenderwoche gesucht und die Anzahl der Berichte durchgezählt werden
-In Besuchsberichte.xls soll dann das bereits vorhandene Arbeitsblatt so häufig kopiert werden, die Berichte vorhanden sind
-Die Daten sollen dann von CRM.xls in die einzelnen Berichte übertragen werden

Da ich leider der einzige Programmiererfahrene unserer Abteilung bin, aber bisher leider wenig mit VBA und der Verknüpfung mit Excel zu tun hatte, bitte ich um ein wenig Unterstützung.

Besonders Punkt zwei und vier bereiten mir Kopfzerbrechen.

Ich freue mich über eure tatkräftige Hilfe

Danke im Voraus

Grüße

Jens

Const CRMPath = "E:\Test\CRM.xls"  

Const StartZeile = 7
Const ZaehlSpalte = "A"  

Sub Test()
    Dim Anzahl As Long
    
    Anzahl = GetAnzahl(2)
End Sub

Private Function GetAnzahl(ByVal KW) As Long
    Dim Wkb As Workbook, Wks As Worksheet, i As Long, Counter As Long
    
    Set Wkb = GetObject(CRMPath)
    
    For Each Wks In Wkb.Sheets
        If Wks.Name = "KW" & Right("0" & KW, 2) Then  
            For i = StartZeile To Wks.Cells(Wks.Rows.Count, ZaehlSpalte).End(xlUp).Row
                If Not IsEmpty(Wks.Cells(i, ZaehlSpalte)) Then Counter = Counter + 1
            Next
            Exit For
        End If
    Next
    
    Wkb.Close False
    
    GetAnzahl = Counter
End Function

Private Function GetAnzahl(ByVal KW) As Long
    Dim Wkb As Workbook, Wks As Worksheet
    
    Set Wkb = GetObject(CRMPath)
    
    For Each Wks In Wkb.Sheets
        If Wks.Name = "KW" & KW Then  
            GetAnzahl = WorksheetFunction.CountIf(Wks.Range("A7:A65536"), "<>"):  Exit For  
        End If
    Next
    
    Wkb.Close False
End Function