Supportnet / Forum / Tabellenkalkulation
Wenn Zelle leer, dann Zellwert 0
Frage
Hi,
wie kann ich mit einem Makro im Bereich B2:H163, überall wo die Zelle leer ist, Zellwert 0 machen?
Wobei sich die Bereichsgröße stets ändert, z.B. B2:I170, weil immer neue Einträge dazukommen.
Danke, Swen
Antwort 1 von Nostradamus
=WENN(ZS="";"0")
Jeweils in die Zellen schreiben die betroffen sind.
Was besseres fällt mir momentan nicht ein.
Jeweils in die Zellen schreiben die betroffen sind.
Was besseres fällt mir momentan nicht ein.
Antwort 2 von SW131
Hallo Nostradamus,
das hab ich als erstes versucht, aber das funktioniert leider nicht.
Danke dir trotzdem für deine Mühe.
Swen
das hab ich als erstes versucht, aber das funktioniert leider nicht.
Danke dir trotzdem für deine Mühe.
Swen
Antwort 3 von Rick
Hallo Swen
Ich habe folgendes Makro ausprobiert:
Sub xy()
Range("B2:H163").Select
Selection.Replace What:=Empty, Replacement:="10", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub
Es funktioniert aber nur, wenn du in der Zelle H163 (letzte Zelle) einen Wert
eingegeben hast. Du kannst ihn danach wieder löschen und das Makro funktierniert einwandfrei. Aber frag mich nicht warum das so ist....?....?...
Gruss Rick
Ich habe folgendes Makro ausprobiert:
Sub xy()
Range("B2:H163").Select
Selection.Replace What:=Empty, Replacement:="10", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub
Es funktioniert aber nur, wenn du in der Zelle H163 (letzte Zelle) einen Wert
eingegeben hast. Du kannst ihn danach wieder löschen und das Makro funktierniert einwandfrei. Aber frag mich nicht warum das so ist....?....?...
Gruss Rick
Antwort 4 von SW131
Hollo Rick,
ich danke dir vielmals, das sieht schon sehr gut aus und funktioniert auch im Moment, aber bei der nächsten Eingabe,z.B. in Spalte I müsste ich das Makro wieder Ändern.
Es kommt jeden Monat eine Spalte dazu.
Danke nochmal
Swen
ich danke dir vielmals, das sieht schon sehr gut aus und funktioniert auch im Moment, aber bei der nächsten Eingabe,z.B. in Spalte I müsste ich das Makro wieder Ändern.
Es kommt jeden Monat eine Spalte dazu.
Danke nochmal
Swen
Antwort 5 von Nostradamus
HI Rick,
also ohne LookAt und SearchOrder.
Dies behebt das Problem, dass in der letzten Zelle was eingetragen sein muss.
Bei mir funktioniert es jedenfalls.
Sub xy()
Range("B2:H23").Select
Selection.Replace What:=Empty, Replacement:="10", MatchCase:=False
End Subalso ohne LookAt und SearchOrder.
Dies behebt das Problem, dass in der letzten Zelle was eingetragen sein muss.
Bei mir funktioniert es jedenfalls.