Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

311 Forumthreads zu ähnlichen Themen

Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Anzeige
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
Anzeige
Wenn kein Eintrag dann 0
Alex

Hi @ all!
Habe ein kleines Problem:
Habe folgende Formel, aber es wird immer Divison durch Null angezeigt...
=WENN(H3=" ";"0";H3/F3)
Ich quasi nur Teilen, wenn in H3 ein Eintrag vorhanden ist, oder eben wenn kein Eintrag vorhanden ist soll 0 da stehen...
Vielen Dank schon ma...
14.07.2009 12:41:15
Thread-ID: 1088433
5 Beiträge
Wenn Zelle A1 beschrieben dann Zelle A2 leeren...
Vogel

Hi,
mir fehlt absolut nicht ein wie die Funtion heißt.
Also,
wenn ich in Zelle A1 etwas schreibe, dann soll es mir Zelle A2 löschen.
Schreibe ich dann aber in Zelle A2 etwas, dann soll es mir Zelle A1 löschen.
Gruß Michael
16.12.2009 08:35:44
Thread-ID: 1124249
10 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
Zelleneintrag "1200" in Uhrzeit 12:00 umwandeln
',," (2x Komma) Durch:':' (Doppelpunkt).Nun kannst Du 'komfortabel' auf dem Ziffernblock 2 Kommas eingeben; der Doppelpunkt eird generiert.Ansonsten als Ansatz fogende VBA-Makros von Michael Schwimmer:
16.04.2002 10:15:59
Thread-ID: 113633
2 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
9
6
6
4
9
3
1
2
3
8
7
2
9
8
6
5
4
6
6
6
11
3
5