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
Moin
Selektiere die leeren Zellen.
Tippe 500.
Beende die Eingabe mit STRG-ENTER.
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
Code:
Range("A1:A20").SpecialCells(xlCellTypeBlanks).Valentinstag = 20
Schöne Autokorrektur ... ?
Nicht der Tag der Liebe sondern. Value
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
Hi,
wie kommen denn die Daten in die anderen Zellen?
CU
Oberon
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?
Aber dann addiert er mir auch alle leere Zellen, in denen ja nun 500 steht...
Wenn da 500 steht dann ist die Zelle nicht leer.