Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nullenauffüllen

Forumthread: Nullenauffüllen

Nullenauffüllen
Volker
Man könnte sich die Haare ausreißen immer die Fehler in den Büchern!

Sub Nullenauffüllen()
Dim Zelle As Range
Sheets("Nullen").Activate
Set Bereich = Range("B2:H10")
For Each Zelle In Bereich
If Zelle.Value = " " Then
Zelle.Value = 0
End If
Next
End Sub

Es kommt die Fehlermeldung Variable=(Bereich) nicht definiert!!
Was muß ich machen?
Vielen Dank für euer Bemühungen!!!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nullenauffüllen
Ramses
Hallo

Sub Nullenauffüllen()
Dim Zelle As Range, Bereich As Range
Set Bereich = Workheets("Nullen").Range("B2:H10")
For Each Zelle In Bereich
If Zelle.Value = " " Then
Zelle.Value = 0
End If
Next
End Sub

Activate ist nicht nötig.
Gruss Rainer
Anzeige
AW: Nullenauffüllen
Volker
Jetzt bringt er Fehlermeldung
Fehler beim Kompilieren
Sub oder Funktion nicht definiert!
Bitte sagt mir was ich machen soll damit das geht!!
Hab leider keine Ahnung!
AW: Nullenauffüllen
Ramses
Hallo
Nun mach mal keinen Stress, ein bischen lesen schadet nicht ;-) und fördert das Verständnis.
EXCEL markiert hier die monierte Stelle im Code, wenn du auf "Debuggen" klickst.
Dann wäre der Rest eigentlich ganz einfach gewesen
Es muss "Worksheets" anstelle von "Workheets" heissen.
Gruss Rainer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige