Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leere Zellen im Datenblatt mit "0" füllen

Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 14:11:50
Daniel
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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen im Datenblatt mit "0" füllen
Tim
Neben der ersten Zelle, in der in Spalte A was steht eine 0 eingeben und Doppelklick auf die rechte untere Ecke der Zelle.
Tim
AW: Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 14:33:19
Daniel
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
AW: Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 14:34:21
Giuseppe
Hallo Tim
Gute Sache... Danke
mfG
Giuseppe
AW: Leere Zellen im Datenblatt mit "0" füllen
UweD
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
Anzeige
AW: Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 14:45:24
Daniel
Es kommt die Fehlermeldung "keine Zellen gefunden".
AW: Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 14:46:38
Daniel
https://www.herber.de/bbs/user/18290.xls
Ich habe mal eine Beispieldatei hochgeladen.
Dann ist das anschaulicher denke ich.
Danke,
Daniel
AW: Leere Zellen im Datenblatt mit "0" füllen
UweD
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
Anzeige
AW: Leere Zellen im Datenblatt mit "0" füllen
18.02.2005 15:01:17
Daniel
Super!
Danke!

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige