Makro Suchen und Ersetzen

Sub Suchen_und_Ersetzen()
    Dim returnvalue
    returnvalue = InputBox("Bitten geben Sie die Nummer der Spalte zum Suchen und Ersetzen ein: ") 'Abfrage der Spalte
    Dim i As Integer
    Dim k As Integer
    k = returnvalue
    i = 1
    Do While Cells(i, k) <> "" 'Zellen so lange durchgehen, bis eine leere Zelle erreicht wurde
        If Cells(i, k) = "B3" Or Cells(i, k) = "b3" Then 'Falls Inhalt B3 oder b3...
            Cells(i, k) = "BMW 3 Serie" '...das hier
        End If
        If Cells(i, k) = "B5" Or Cells(i, k) = "b5" Then
            Cells(i, k) = "BMW 5 Serie"
        End If
        If Cells(i, k) = "B7" Or Cells(i, k) = "b7" Then
            Cells(i, k) = "BMW 7 Serie"
        End If
        If Cells(i, k) = "C" Or Cells(i, k) = "c" Then
            Cells(i, k) = "Mercedes Benz C Klasse"
        End If
        If Cells(i, k) = "E" Or Cells(i, k) = "e" Then
            Cells(i, k) = "Mercedes Benz E Klasse"
        End If
        i = i + 1 'den Zähler um 1 erhöhen, damit die nächste Zelle gewählt wird
    Loop 'Ende While Schleife
End Sub 'Ende Makro