Office: (Office 2007) Leere Zellen mit der Zahl 0 füllen?

User · 9. April 2008

Hallo Zusammen,

ich möchte gerne in einem Bereich eines Tabellenblattes aller leeren Zellen mit einer Null füllen. Das mache ich, indem ich den Bereich markiere, dann über Inhalte auswählen alle leeren Zellen markiere, in die dann aktive Zelle =0 eingebe und STRGENTER drücke.

Klappt!

Leider sind einige Zellen nicht wirklich leer, sondern enthalten eine leere Zeichenfolge (=""). Diese Zellen werden dann nicht befüllt.

Wie kann ich da tun?

Vielen Dank schonmal,
Mattes

:)

chris-kaiser · 10. April 2008

Hi

Code:

Sub mattes()
Dim rng As Range
Set rng = Range("a1:C100") 'anpassen oder ermitteln bzw drch selection ersetzen
On Error Resume Next 'falls keine leeren Zellen oder Formeln sind
rng.SpecialCells(xlCellTypeBlanks).Value = 0
For Each cell_ In rng.SpecialCells(xlCellTypeFormulas)
If cell_.Value = "" Then cell_.Value = 0
Next
On Error GoTo 0 'feherbehandlung wieder einschalten
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[edit] hatte die Angabe zuerst falsch gelesen du willst ja diese "" auch ersetzen

oder bearbeiten ersetzen -> einmal suche nach nichts -> 0
und einmal suche nach "" -> 0

schönes We noch!

User · 10. April 2008

Hi Chris,

danke für Deinen Beitrag, aber der Code zeigt genau dasselbe Verhalten wie mein geklicke. Leere Zellen werden mit Nullen gefüllt, Zellen mit einer leeren Zeichenfolge als Inhalt bleiben "leer".

Könnte man da ne Schleife basteln?

Code:

For each Zelle in selection
If zelle hasSpecialCells(xlCellTypeBlanks) or zelle.Value="" Then
Zelle.Value = 0
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...irgendwie so?

Gruß,
Mattes

Noch ne Idee?

chris-kaiser · 11. April 2008

Hallo Mattes

hast Du meinen edit gesehen (sry, hatte deine Frage zuerst falsch verstanden)
dieser Code müsste das erledigen
falls deine Leerstrings in den Zellen ein Resultat von Formeln sind.

bzw. Ohne Code mit Bearbeiten ersetzen

biene maja · 11. April 2008

bereich markieren
Strg+F
suchen:_
Ersetzen:0
fertig

User · 11. April 2008

Hi Maja,

das klappt bei mir nicht. Ist Dein Suchzeichen ein Unterstich oder soll das ein Leerzeichen symbolisieren?

@chris:

Habe es jetzt mit einer Schleife gelöst. Es gibt leere Zellen und tatsächlich Zellen die eine leere Zeichenfolge enthalten und Zellen, die ein Leerzeichen enthalten, was für ein...

So klappt's bei mir:

Code:

Sub fill_0()

Dim Zelle As Range
Dim Zellen As Range
Set Zellen = Selection

On Error GoTo Fehler

For Each Zelle In Zellen
'Zellen glätten, d.h. führende und nachfolgende Leerzeichen werden entfernt.
Zelle.Value = Trim(Zelle.Value)
'Leere Zellen mit der Zahl 0 füllen
If Zelle.Value = "" Then
Zelle.Value = 0
Else
'Zellen, die durch Trim in Text umgewandelt wurden, wieder in den Datentyp Single umwandeln
Zelle.Value = CSng(Zelle.Value)
End If

Next

Exit Sub

'Fehlerbehandlung

Fehler:
MsgBox "Das Makro hat einen Fehler verursacht! & vbcr & Bitte wenden Sie sich an den User Help Desk", vbCritical
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für Eure Hilfe,
Mattes

Office: (Office 2007) Leere Zellen mit der Zahl 0 füllen?

Leere Zellen mit der Zahl 0 füllen?

Leere Zellen mit der Zahl 0 füllen?

Leere Zellen mit der Zahl 0 füllen?

Leere Zellen mit der Zahl 0 füllen? - Similar Threads - Leere Zellen Zahl

VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

zusammenhängende leere Zellen zählen

Zählen nicht leerer Zellen

Verwenden von ANZAHL2 zum Zählen von Zellen, die nicht leer sind

Pivot Tabelle Funktion Anzahl leere Zellen "" nicht zählen

Leere Zellen zählen in einem Bereich

Zählen Zellen wenn einige leer sind andere nicht