7
Excel - Bedingte Formatierung - Selbes Format wie Nachbarzelle, wenn Wert kleiner 10
Hallo!
Ich wäre dankbar und erfreut, wenn mir bei folgender Herausforderung geholfen werden könnte:
In Spalte A sind Zellen unterschiedlich farblich gefüllt. Diese Farben ändern sich dann und wann.
Spalte B enthält Zahlen. Wenn eine Zahl kleiner als 10 ist, soll die Zelle in Spalte B mit derselben Farbe gefüllt werden wie die Nachbarzelle in Spalte A.
Vielen, vielen Dank!
Grüße
Binger
Ich wäre dankbar und erfreut, wenn mir bei folgender Herausforderung geholfen werden könnte:
In Spalte A sind Zellen unterschiedlich farblich gefüllt. Diese Farben ändern sich dann und wann.
Spalte B enthält Zahlen. Wenn eine Zahl kleiner als 10 ist, soll die Zelle in Spalte B mit derselben Farbe gefüllt werden wie die Nachbarzelle in Spalte A.
Vielen, vielen Dank!
Grüße
Binger
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 357566
Url: https://administrator.de/contentid/357566
Printed on: April 26, 2024 at 17:04 o'clock
7 Comments
Latest comment
Hi,
ich denke, sowas geht nur über VBA.
E.
ich denke, sowas geht nur über VBA.
E.
1
Hi emeriks,
Dankeschön für die schnelle Antwort!
Falls es nur über VBA geht, habe ich leider ein Problemchen, denn VBA beherrsche ich leider überhaupt nicht
Dankeschön für die schnelle Antwort!
Falls es nur über VBA geht, habe ich leider ein Problemchen, denn VBA beherrsche ich leider überhaupt nicht
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A:B"), Target) Is Nothing Then
Application.EnableEvents = False
for each cell in Range("B2:B" & Cells(Rows.Count,"B").End(xlUp).Row)
if Target.Value < 10 then
Target.interior.color= Target.Offset(0,-1).interior.color
Else
Target.interior.colorindex = xlNone
End if
Next
Application.EnableEvents = True
End If
End SubEXCEL Zelleninput direkt in "Hintergrundformel" einfügen
Vielen Dank, bitcoin! Und klasse!
Ich habe es eben getestet. Es funktioniert. Allerdings wird die Farbe in Spalte B nicht mehr gelöscht, wenn der Wert sich ändert, also beispielsweise über 10 liegt. D. h. wenn die Bedingung nicht mehr zutrifft, bleibt die Farbe dennoch. Es wäre super, wenn die Zellen dann wieder ohne Füllung wäre.
Bei deiner tollen Unterstützung ist es fast unverschämt zu fragen, aber ich wage es dennnoch: Hättest du noch eine Ergänzung, damit die Füllung wie beschrieben wieder verschwindet.
Gracias!
PS: Wird Zeit, dass ich mal VBA lerne
Ich habe es eben getestet. Es funktioniert. Allerdings wird die Farbe in Spalte B nicht mehr gelöscht, wenn der Wert sich ändert, also beispielsweise über 10 liegt. D. h. wenn die Bedingung nicht mehr zutrifft, bleibt die Farbe dennoch. Es wäre super, wenn die Zellen dann wieder ohne Füllung wäre.
Bei deiner tollen Unterstützung ist es fast unverschämt zu fragen, aber ich wage es dennnoch: Hättest du noch eine Ergänzung, damit die Füllung wie beschrieben wieder verschwindet.
Gracias!
PS: Wird Zeit, dass ich mal VBA lerne
Einfach mal in die Hilfe schauen ....
Ich weiß jetzt nicht auswendig, ob Farbe "0" richtig ist, aber so in dieser Richtung. Wir gesagt, einfach mal die Hilfe bemühen oder das Web.
....
if Target.Value < 10 then
Target.interior.color= Target.Offset(0,-1).interior.color
else
Target.interior.color = 0
end if
....Ich weiß jetzt nicht auswendig, ob Farbe "0" richtig ist, aber so in dieser Richtung. Wir gesagt, einfach mal die Hilfe bemühen oder das Web.
Uups, vollkommen vergessen, s.o.
Danke!!!