Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen ohne Wert durch "0" ersetzen

Forumthread: Zellen ohne Wert durch "0" ersetzen

Zellen ohne Wert durch "0" ersetzen
21.07.2007 10:00:03
Herrmann
Hallo zusammen,
ich suche ein Makro, das in Zeile 15 einer Tabelle überprüft , ob Werte in den Zellen stehen oder nicht. Wenn kein Wert in der jeweiligen Zelle ist, soll er durch "0" ersetzt werden. Das möchte ich für alle Tabellenblätter (immer nur die Zeile 15) in meiner Excel-Mappe, ohne am Schluss gefragt zu werden, ob ich die Felder ohne Wert tatsächlich jeweils durch "0" ersetzen möchte.
Kann mir da jemand helfen?
Wäre klasse!
Gruß
Herrmann

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen ohne Wert durch "0" ersetzen
21.07.2007 10:13:00
Renee
Mazwara Hermann,
Komische Anforderung, aber na ja:

Sub x15()
Dim ws As Worksheet
Dim rC As Range
For Each ws In ThisWorkbook.Worksheets
For Each rC In ws.Rows(15).Cells
If rC.Value = "" Then rC.Value = 0
Next
Next
End Sub


Gehört in ein Modul
Greetz Renee

Anzeige
AW: Zellen ohne Wert durch "0" ersetzen
21.07.2007 10:33:00
Herrmann
Vielen Dank,
das ist genau das was ich gesucht habe. Das gehört in einen größeren Kontext. Daher die auf den ersten Blick unverständliche Anforderung.
Gruß
Herrmann

AW: Zellen ohne Wert durch "0" ersetzen
21.07.2007 22:57:00
{Boris}
Hi Renee,
wenn man wirklich von LEEREN Zellen ausgehen kann (und nicht welche, die Leerstrings "" enthalten), dann kann man auch auf die SpecialCells zurückgreifen und sich sich die Schleife sparen.

Sub x15()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Rows(15).SpecialCells(xlCellTypeBlanks) = 0
Next
End Sub


Sollten auch mal keine Leeren dabei sein können, dann natürlich noch mit On Error oder If Not ... Is Nothing arbeiten.
Grüße Boris

Anzeige
AW: Zellen ohne Wert durch "0" ersetzen
22.07.2007 09:28:00
Renee
Hello {Boris},
Diese Lösung hatte ich zuerst auch.
Leider versagt sie mit Error 1004 'Unable to set the SpecialCells property of the Range class'
unter Excel 2000 - SP-3
Greetz Renee

AW: Zellen ohne Wert durch "0" ersetzen
22.07.2007 10:23:00
Renee
Hi again,
Hab Deinen Zusatz
Sollten auch mal keine Leeren dabei sein können, dann
erst im Nachhinein gesehen. Na ja, dann läuft ja im Endeffekt auf mehr Code raus, als eine einfache Schleife.
Greetz Renee

Anzeige
AW: Zellen ohne Wert durch "0" ersetzen
22.07.2007 20:32:00
{Boris}
Hi Renee,
Na ja, dann läuft ja im Endeffekt auf mehr Code raus, als eine einfache Schleife.
Es geht mir nicht um mehr oder weniger, sondern um langsamer oder schneller.
Und die SpecialCells sind trotz ein paar Codezeilen mehr (w/Fehlerabfang) wesentlich flotter (was man natürlich in diesem Mini-Beispiel nicht merken wird - aber das summiert sich ja in größeren Projekten).
Grüße Boris
Anzeige
;

Forumthreads zu verwandten Themen

Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
"-" durch "0" ersetzen
Flo

Hallo zusammen,
nachdem man in diesem Forum immer sehr schnell, sehr gute Antworten bekommt, meine zweite Frage nach ;-)
Ich habe in manchen Zellen "-" stehen. Gibt es die Möglichkeit diese "-" durch z.B. eine "0" zu ersetzen?
Also eine Formel, die mir in C3 eine "0" gibt wenn z.B....
16.04.2009 10:46:12
Thread-ID: 1069007
7 Beiträge
statt #NV eine 0 schreiben
juergen63

hallo vielleicht kann mir hier eine/r helfen,
ich suche mit der folgenden formel "=VERGLEICH(E15;'ServiceCalls2009_0101-2404.xls'!$G$2:$G$12500;0)" in einer matrix nach einer bestimmte zahl. funktioniert auch alles. nur wenn die zahl in der anderen tabelle nicht vorhanden ist, wird mir der...
30.04.2009 13:29:05
Thread-ID: 1072161
7 Beiträge
#NV in 0 umwandeln
rainer
Hallo! Die NV# entstehen duech Formeln, für die kein Wert berechnet werden konnte. Modifiziere deine Formel analog zu:
vorher: Zelle A1:(Formelxy)
nachher: wenn (istfehler(formelxy);0;formel(xy))
15.04.2002 11:51:26
Thread-ID: 113365
4 Beiträge
Anzeige
Wenn übernomme Zelle leer - dann Ziel auch leer
Werner

Hallo,
ich habe eine hoffentlich einfache Frage:
Wenn ich in Zelle B10 schreibe =B6, so wird ja der Inhalt von B6 übernommen.
Wenn B6 aber leer ist, dann soll in B10 keine null erscheinen sondern diese soll auch leer bleiben.
Wie kann ich dies tun (außer über die Einstellungen v...
01.03.2010 11:58:44
Thread-ID: 1142333
3 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
Diagramm, Wertlose Zellen nicht als 0 anzeigen
Marlon

Hallo,
kennt jemand eine Möglichkeit, Zellen, die zwar eine Formel, aber keinen Wert enthalten im Diagramm NICHT als 0 anzeigen zu lassen. (Außer natürlich die Formel zu entfernen)?
Danke,
Marlon
14.05.2011 13:26:46
Thread-ID: 1214460
3 Beiträge
Sverweis oder wenn dann
sandra

Hallo,
ich habe folgendenes Problem. Ich möchte zu einen bestimmten Wert einer Zelle (Bsp. A11), den dazugehörigen Wert aus einer anderen Zeile (Bsp. A13) ausgegeben haben. Mit einer Wenn-Dann-Fkt. wird das nichts, da ich zu viele miteinander verschachteln müsste. Auch eine Erweiterung der...
20.07.2011 20:49:25
Thread-ID: 1222943
10 Beiträge
Anzeige
Wenn Wert in Spalte A sich aendert dann Leer Zeile
buliwyf

Hallo Freunde,
ich hoffe erneut ihr koennt mir helfen. Fuer mich eine nicht wirklich leichte Aufgabe.
Mit wenn...Funktionen komme ich da nicht weit.
Folgendes: ich habe ein Macro:
Sub Auto_open() Dim strDatei As String, strPfad As String, sFile As String Dim strText, arrHeader,...
12.09.2011 12:26:49
Thread-ID: 1229453
9 Beiträge
Spaltenvergleich, dann Wert (WENN bzw. SVERWEIS?)
Ludwig

Hallo!
Ich habe in einer Excel-Datei 2 Reiter.
Im ersten Reiter gibt es eine Spalte mit Personalnummern (in G2), die hier mehrmals auftauchen.
Im anderen Reiter (Pers_Kostl) gibt es in der Spalte A diese Personalnummern auch, jedoch immer nur 1x und in Spalte B die zugehörige Stammk...
13.12.2011 10:24:45
Thread-ID: 1241814
7 Beiträge
Wenn Combobox1 click, dann Combobox 2&3 leeren
Ingo

Hallo liebe Excelprofis,
ich habe auf UF1 drei Comboboxen, die mir nach Auswahl, die Listbox1 und verschiedene Textboxen füllt.
Wenn ich zuerst Combobox1 anklicke steht dann ein Wert zur Auswahl und die dazugehörigen Daten werden in Listbox1 geschrieben, wenn ich allerdings Combobox 2 o...
06.01.2012 15:43:46
Thread-ID: 1244933
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige