Leere Zellen im Datenblatt mit "0" füllen

Bild

Betrifft: Leere Zellen im Datenblatt mit "0" füllen von: Daniel
Geschrieben am: 18.02.2005 14:11:50

Hallo Zusammen!

Ich habe folgendes Problem:
Ich habe ein Tabellenblatt, in dem leere Zellen sind. In allen leeren Zellen möchte ich nun eine 0 haben.
Das Ganze allerdings nur bis zur letzten Zeile, in der in Spalte A etwas steht, damit nicht bis Zeile 65000 Nullen stehen. Also es wird nur soweit benötigt wie auch der Datensatz geht.

Für eure Hilfe wäre ich dankbar,
Daniel

Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Tim
Geschrieben am: 18.02.2005 14:28:47

Neben der ersten Zelle, in der in Spalte A was steht eine 0 eingeben und Doppelklick auf die rechte untere Ecke der Zelle.

Tim


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Daniel
Geschrieben am: 18.02.2005 14:33:19

Entweder ich mache etwas falsch, oder das geht nicht.
Es werden Werte in Zellen mit 0 überschrieben. ICh möchte aber, dass alle leeren Zellen eine 0 bekommen. Und nicht die, in denen etwas steht.

Grüße,
Daniel


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Giuseppe
Geschrieben am: 18.02.2005 14:34:21

Hallo Tim

Gute Sache... Danke

mfG
Giuseppe


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: UweD
Geschrieben am: 18.02.2005 14:33:29

Hallo

so ginge es:

Sub Nullen()
    Dim LR%, Myrange As Range
    LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
    Set Myrange = Range("A1:A" & LR).SpecialCells(xlCellTypeBlanks) 'nur Leerzellen
    Myrange.Formula = "0"
End Sub



Gruß UweD


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Daniel
Geschrieben am: 18.02.2005 14:45:24

Es kommt die Fehlermeldung "keine Zellen gefunden".


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Daniel
Geschrieben am: 18.02.2005 14:46:38

https://www.herber.de/bbs/user/18290.xls

Ich habe mal eine Beispieldatei hochgeladen.
Dann ist das anschaulicher denke ich.

Danke,
Daniel


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: UweD
Geschrieben am: 18.02.2005 14:56:21

Hallo

habs angepasst.

Sub Nullen()
    Dim LR%, S1%, S2%, Myrange As Range
    LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
    S1 = 2 'erste Spalte für Änderungen
    S2 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column '
    Set Myrange = Range(Cells(1, S1), Cells(LR, S2)).SpecialCells(xlCellTypeBlanks)
    Myrange.Formula = "0"
End Sub




https://www.herber.de/bbs/user/18291.xls


Gruß UweD


Bild


Betrifft: AW: Leere Zellen im Datenblatt mit "0" füllen von: Daniel
Geschrieben am: 18.02.2005 15:01:17

Super!
Danke!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Leere Zellen im Datenblatt mit "0" füllen"