Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler bei Set Range

Fehler bei Set Range
Burghard
Hallo,
warum kommt hier eine Fehlermeldung?
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("A2:auswahl" & Range("A65536").End(xlUp).Row)
For Each Zelle In rng
If Zelle = 0 Then Zelle.ClearContents
Next
Range("A2:auswahl" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Cells.Delete
nix:
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler bei Set Range
08.06.2011 15:33:16
Rudi
Hallo,
Set rng = Range("A2:" &auswahl & Range("A65536").End(xlUp).Row)
Gruß
Rudi
AW: Klappt!
08.06.2011 15:55:23
Burghard
Hallo Rudi,
vielen Dank! Klappt bestens!
Schönen Gruß
Burghard
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige