So funktioniert es:

Sub Test_Auswertung(kontonummer As Integer, suchwort As String)
    Dim rng As Range
    
    Dim Auswertung As String
    
     With ActiveSheet.UsedRange
        'Nach Kriterien Filtern
        .AutoFilter 1, suchwort
          
        
        'Auswertung durchführen
       
            
            Auswertung = kontonummer
            ActiveSheet.Range("C2:C" & .Rows.Count).SpecialCells(xlVisible) = Auswertung
      
    End With
    
    MsgBox (Auswertung)
End Sub

Sub anzeigen()
Call Test_Auswertung(12345, "C")
End Sub