Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Leere Zellen im Datenblatt mit "0" füllen"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen