Excel VBA Sverweis nach klick auf Button

Sub test()
Dim id As String
Dim idtemp(1 To 10) As String
Dim temp As String

id = InputBox("Geben Sie die ID ein.")  
anzahl = InputBox("Geben Sie die Anzahl der Besucher an.")  
id = CStr(id)

For a = 1 To 10
zelle = "A" & a  
zelle = CStr(zelle)
Range(zelle).Select
temp = ActiveCell
idtemp(a) = temp
If idtemp(a) = id Then
zelle = "B" & a  
zelle = CStr(zelle)
Range(zelle).Select
ActiveCell = anzahl
End If
Next a

End Sub

Cells(a, "A")

Sub Eintragen()
id = InputBox("Geben Sie die ID ein.")  

With Range("A2:A200")  
    Set c = .Find(What:=id, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        c.Offset(0, 1) = InputBox("Geben Sie die Anzahl der Besucher an.")  
    Else
        MsgBox id & " nicht gefunden!"  
    End If
End With
End Sub

Private Sub CommandButton1_Click()
    Call SetKundendaten
End Sub

Option Explicit

Const InputKn = "D4"        'Zelle: Eingabe Kundennummer  
Const InputPs = "D5"        'Zelle: Eingabe Anzahl Personen  

Const EtFarbe = "J3"        'Zelle: Etikett Farbe  
Const EtKdNr = "J4"         'Zelle: Etikett Kundennummer  
Const EtFirma = "J5"        'Zelle: Etikett Firma  
Const EtName = "J6"         'Zelle: Etikett Name  
Const EtOrt = "J7"          'Zelle: Etikett Ort  

Const SumSaFa = "N5"        'Zelle: Summe Samstag Anzahl Firmen  
Const SumSaPs = "O5"        'Zelle: Summe Samstag Anzahl Personen  
Const SumSoFa = "N8"        'Zelle: Summe Sonntag Anzahl Firmen  
Const SumSoPs = "O8"        'Zelle: Summe Sonntag Anzahl Personen  

Const Zeile1Kd = 24         'Zeile 1 Kundendaten  

Const SpalteKn = "C"        'Spalte: Kundendaten Kundennummer  
Const SpalteFa = "D"        'Spalte: Kundendaten Firma  
Const SpalteCo = "E"        'Spalte: Kundendaten Farbe  
Const SpalteNa = "F"        'Spalte: Kundendaten Name  
Const SpalteOr = "H"        'Spalte: Kundendaten Ort  

Const SpalteSa = "N"        'Spalte: Kundendaten Samstag  
Const SpalteSo = "O"        'Spalte: Kundendaten Sonntag  

Const Msg1 = "Die Eingaben sind unvollständig!"  
Const Msg2 = "Kunden-Nr.: % nicht gefunden!"  
Const Msg3 = "Heute ist kein Samstag oder Sonntag!"  

Const Samstag = 6           'Wochentag Samstag  
Const Sonntag = 7           'Wochentag Sonntag  

Sub SetKundendaten()
    Dim KdNr As String, Daten As Range, Tag As Integer, Zeile As Long
    Dim SpalteW As String, ZelleFa As String, ZellePs As String
    
    If Range(InputKn) = "" Or Range(InputPs) = "" Then  
        MsgBox Msg1, vbExclamation, "Fehler":  Exit Sub  
    End If
    
    Tag = DatePart("w", Date, vbMonday)  
            
    If Tag = Samstag Then
        SpalteW = SpalteSa:  ZelleFa = SumSaFa:  ZellePs = SumSaPs
    ElseIf Tag = Sonntag Then
        SpalteW = SpalteSo:  ZelleFa = SumSoFa:  ZellePs = SumSoPs
    Else
        MsgBox Msg3, vbExclamation, "Fehler":  Exit Sub  
    End If
            
    Set Daten = Columns(SpalteKn).Find(Range(InputKn), LookIn:=xlValues, LookAt:=xlWhole)
        
    If Daten Is Nothing Then
        MsgBox Replace(Msg2, "%", Range(InputKn)), vbExclamation, "Fehler"  
    Else
        Zeile = Daten.Row
        Range(EtFarbe).Interior.ColorIndex = Cells(Zeile, SpalteCo).Interior.ColorIndex
        Range(EtKdNr) = Cells(Zeile, SpalteKn)
        Range(EtFirma) = Cells(Zeile, SpalteFa)
        Range(EtName) = Cells(Zeile, SpalteNa)
        Range(EtOrt) = Cells(Zeile, SpalteOr)
            
        If Range(InputPs) = 0 Then Cells(Zeile, SpalteW) = "" Else Cells(Zeile, SpalteW) = Range(InputPs)  
    
        Zeile = Cells(Rows.Count, SpalteW).End(xlUp).Row
        
        With WorksheetFunction
            Range(ZelleFa) = .Count(Range(Cells(Zeile1Kd, SpalteW), Cells(Zeile, SpalteW)))
            Range(ZellePs) = .Sum(Range(Cells(Zeile1Kd, SpalteW), Cells(Zeile, SpalteW)))
        End With
    End If
End Sub