Set und Range und zwei Variablen

Sub Nullwerte_löschen()
Dim rng As Range, Zelle As Range, i As Integer
Dim auswahl As String
auswahl = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr & "Hier die Spalte eingeben!",  _
Title:="Spalte?", xpos:="6250", ypos:="4200")
If auswahl = "" Then GoTo nix
Set rng = Range("auswahl & 2:" & auswahl & Range("A65536").End(xlUp).Row)
For Each Zelle In rng
If Zelle = 0 Then Zelle.ClearContents
Next
Range("auswahl & 2 :" & auswahl & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks). _
Cells.Delete
nix:
End Sub