Wenn Leer, dann Text

[Peppi2807]

Hallo zusammen,

ich suche folgende Formel:

Wenn es Zellen zwischen A1 und A20 gibt, die leer sind, dann soll dort jeweils "500" stehen.

Irgendwie stehe ich auf dem Schlauch... 

Viele Grüße
Peppi

[shift-del]

Moin

Selektiere die leeren Zellen.
Tippe 500.
Beende die Eingabe mit STRG-ENTER.

[Stoffo]

Hallo,

Code:

Sub a()
Dim rng As Range: Set rng = Application.Range("A1:A20")
Dim cel As Range

For Each cel In rng.Cells
    If cel = "" Then cel = 500
Next cel
End Sub
   

[RPP63]

Code:

Range("A1:A20").SpecialCells(xlCellTypeBlanks).Valentinstag = 20

Schöne Autokorrektur ... ?
Nicht der Tag der Liebe sondern. Value

[derHoepp]

Hallo auch von mir,

du kannst das selektieren der leeren Zellen vereinfachen, wenn du mit der F5-Taste den Gehe zu Dialog auswählst, dort auf Inhalte... klickst und im Anschluss "leere Zellen" auswählst.

Viele Grüße
derHöpp

[Oberon]

Hi,

wie kommen denn die Daten in die anderen Zellen?

CU
Oberon

[Peppi2807]

Danke! Das hat super funktioniert. 

Jetzt noch eine andere Frage: 

Alle Zellen, die in dieser Spalte nun nicht leer sind, sollen addiert werden. 

Welche Formel kann ich dafür nutzen?

[shift-del]

Verwende SUMME().

[Peppi2807]

Aber dann addiert er mir auch alle leere Zellen, in denen ja nun 500 steht...

[shift-del]

Wenn da 500 steht dann ist die Zelle nicht leer.