Für die fertige Version erhalte ich die Fehlermeldung "Überlauf". Die Aufrufzeile wird markiert. Woran kann das liegen?
Sub KontoNr(suchwort As String, kennzahl As Integer)
'Autofilter setzen und lösen
Tabelle1.Range("A3").AutoFilter
 
'Filtern: Bestimmter Wert
Tabelle1.Range("A3").AutoFilter Field:=1, Criteria1:=suchwort

Dim n As Integer

n = 3
Sheets(1).Select

With Range("A:A").Cells.SpecialCells(xlCellTypeVisible)
    Do Until .Cells(n, 1).Value = ""
        If Cells(n, 1).Value = suchwort Then Cells(n, 1).Offset(0, 3).Value = kennzahl
        
     n = n + 1
    Loop
End With
End Sub

Sub aufRuf()
Call KontoNr("Government", 123456) // Dafür erfolgt die Fehlermeldung
End Sub