Eine Variable vom Typ Integer oder Long hat 0, wenn kein Wert zugewiesen wurde (da dies Zahlen sind).

Hier was für dein Problem mit SQL, adaptiere es um probiers mal aus:

Public Sub readDataFromExcel()
    Dim strCon      As String
    Dim strFile     As String
    Dim strSQL      As String
    Dim cn          As ADODB.Connection
    Dim rs          As ADODB.Recordset
    Dim anzahl      As Long
    Dim model       As String
    Dim einheit     As Long
    Dim farbe       As String
    Dim standort    As String
    
    strFile = "c:\users\schw276\Desktop\dta.xls" ' hier gib den Pfad deiner Liste an: I:\Domenic Stamm\Verkaufslisten\Verkaufsliste.xlsm
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=yes"";"
      
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
  
    cn.Open strCon
      
    'anzahl = InputBox("Anzahl")
    'einheit = InputBox("Einheit")
    'model = InputBox("Model")
    'farbe = InputBox("Farbe")
    marke = "Finn Comfort"
    standort = "Aarau" 'InputBox("Standort")
    
    
    strSQL = "SELECT * FROM [Tabelle2$] where marke = '" & marke & "' and standort = '" & standort & "'"
    rs.CursorType = adOpenKeyset
    'rs.CursorLocation = adUseServer
    rs.LockType = adLockOptimistic
    rs.Open strSQL, cn
    
    If Not rs Is Nothing Then
        If rs.BOF And rs.EOF Then 'nichts gefunden; somit nicht vorhanden; lege neu an
            rs.AddNew
            rs.Fields("Anzahl") = 1
            rs.Fields(1) = "neue"
            rs.Update
        Else
            'gefunden
            While Not rs.EOF
                Debug.Print rs.Fields("Standort") & " " & rs.Fields("Marke") 'Spaltenname verwenden
                rs.Fields(0) = rs.Fields("Anzahl").Value + 1 'erhöhe um 1
                rs.Update
                
                'würde auch gehen...
                'Call cn.Execute("Update [Tabelle2$] set anzahl = " & rs.Fields("Anzahl").Value + 1 & " where marke = 'Finn Comfort' and standort = 'Aarau'")
                
                rs.MoveNext
            Wend
        End If
        rs.Close
        Set rs = Nothing
    End If
    
    Set cn = Nothing
End Sub