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"