Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 19:24:45
Diagramm über Bereichsnamen abrufen
07.05.2024 18:42:21
Wo platziere ich diesen VBA-Code?
07.05.2024 18:09:41
UserForm als PDF Speichern [Bild Lösung]
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nullen anzeigen

Nullen anzeigen
28.07.2019 18:24:08
Stephan
Hallo Zusammen,
ich möchte gerne für einen bestimmten Bereich von Tabelle1 prüfen, ob die Zellen leer sind. Sofern sie leer sind möchte ich eine Null anzeigen. Ich habe mehrere Tabellen, weswegen der Bereich unterschiedlich ist. Bspw. von C3 bis F15. Ideal wäre, wenn ausgehend on C3 der Bereich selbt ermittelt wird.
Folgenden Code habe ich gefunden. Nun möchte ich den Selectionbereich anpassen. 
Sub Nullwennleer()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Value = "" Then
Zelle.Value = 0
End If
Next Zelle
End Sub

Freue mich auf eure Rückmeldung.
Grüße
Stephan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nullen anzeigen
28.07.2019 18:52:33
onur
For Each Zelle In Range("C3:F15")
AW: Nullen anzeigen
28.07.2019 18:54:51
Daniel
Hi
die Frage ist, woran man erkennen kann, wie groß der zu selektierende Bereich ist.
dazu müsste man wissen, wie deine Tabellenblätter aussehen und was selektiert werden soll
eine beliebte Methode ist z.b. CurrentRegion.
hierbei wird dann der Zellbereich ausgehend von der aktiven Zelle soweit erweitert, bis er vom Rand oder einer vollständigen Leerzeile bzw Leerspalte umschlossen ist.
du welche Zellen von CurrentRegion erfasst werden, kannst du mit der Tastenkombination STRG+A auch direkt in der Tabelle ausprobieren.
um die Leerzellen auszuwählen, brauchst du keine Schleife.
dazu gibt es die Funktion SpecialCells(xlcelltypeblanks)
das Äquivalent dazu findest du unter Start - Bearbeiten - Suchen und Auswählen - Inhalte
in deinem Fall könnte also 
Cells(3, 3).CurrentRegion.SpecialCells(xlcelltypeblanks).value = 0

schon die komplette lösung sein, wenn du alle Leerzellen in dem Bereich mit 0 füllen willst.
Gruß Daniel
Anzeige
AW: Nullen anzeigen
28.07.2019 20:11:16
Stephan
Hallo Zusammen,
vielen Dank. Onurs Lösung funktioniert prima. Daniel, deine Lösung klingt auch gut, da der Bereich nicht manuell angepasst werden muss. Leider klappt es bei mir nicht
Sub Test()
For Each Zelle In Cells(3, 3).CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0
End Sub
Grüße
Stephan
AW: Nullen anzeigen
28.07.2019 20:19:51
Daniel
ich schrieb ja auch
Sub Test()
Cells(3, 3).CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0
End Sub
und nicht:
Sub Test()
For Each Zelle In Cells(3, 3).CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0
End Sub
warum du jetzt da "For Each Zelle In" dazu geschreiben hast, musst du selber wissen, von mir kommt das nicht.
wenn du unbedingt mit der Schleife arbeiten willst, was hier aber gar nicht notwendig ist, dann so: 
Sub Test()
For Each Zelle In Cells(3, 3).CurrentRegion.SpecialCells(xlCellTypeBlanks)
Zelle.Value = 0
Next
End Sub

Bitte beim Programmieren mitdenken und nicht irgendwas zusammenphantasieren.
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige