Set und Range und zwei Variablen
Burghard
ich habe doch noch ein Problem, wenn ich zwei Variablen bei dem unten genannten Makro benutze.
Der Fehler tritt in der "Set ..." - Zeile und in der letzten "Range ..."- Zeile auf. Es scheint so, dass ich "auswahl" so dort nicht zweimal benutzen kann.
Hilfe wäre nett.
Schönen Gruß
Burghard
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