Office: Makro Zelle färben, wenn sie eine bestimmte Ziffer enthält

Hallo, ich will einen Button haben, mit dessen Hilfe ich im Bereich A1:A10 jene Felder orange einfärben will, die die Ziffer 2 enthalten. Hat mir jemand einen Tipp, wie der VBA-Code dazu aussehen muß? Vielen Dank.




:)

 

Moin, Achim,

für den Button würde ich folgenden Code einsetzen:

Code:

Da ich aber ein bequemer Mensch bin, würde ich den Vorgang durch das Worksheet_Change-Ereignis bei Änderung automatisch starten lassen:

Code:

Ob nun die 45 dem Farbton entspricht, musst Du am eigenen System überprüfen - die 44 ist ein bißchen blasser... *wink.gif*

 

Hallo Achim,

warum muß man bei jedem Problem gleich VBA einsetzen. Das geht doch auch mit den normalen Mitteln von Excel?

	A
1	1259
2	1598
3	4569
4	2
5	4529

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =ISTFEHLER(FINDEN(2;A1))=FALSCH	Abc
A2	1. / Formel ist =ISTFEHLER(FINDEN(2;A2))=FALSCH	Abc
A3	1. / Formel ist =ISTFEHLER(FINDEN(2;A3))=FALSCH	Abc
A4	1. / Formel ist =ISTFEHLER(FINDEN(2;A4))=FALSCH	Abc
A5	1. / Formel ist =ISTFEHLER(FINDEN(2;A5))=FALSCH	Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen

 

Lieber jinx,
Genial! Der erste Code ist genau das, was ich brauchte. Es funktioniert prächtig. Der 2. und der Code von Hajo_Zi hat nicht gepaßt, denn ich habe diesen Code als Vorlage gebraucht für mehrere Buttons, damit ich die gleichen Zellen dann anders markieren kann, wenn sie andere Werte enthalten.
Nochmal vielen Dank!

 

Moin, AchimSKI,

da ich Minimalist bin, würde ich eher dazu neigen, eine UserForm aufzurufen, um dort die Eingaben vornehmen zu lassen, oder mit 2 Feldern nach Daten/Gültigkeit zu arbeiten, wobei die Farbe dann in einer Select Case-Anweisung des Buttons ausgelesen wird. Das ermöglicht auch farbliche Änderungen, ohne dabei die Schaltflächen zu durchforsten...

 

Hallo ich habe da folgendes Prob.

Ich will das meine Zellen gleichzeitig markiert werden die rot sind. danach soll der content gelöscht werden. Also Werte und Kommentare müssen drin bleiben.

Mein aktueller COde

Sub farben()
Sheets("Einsatzplan1").Select
Dim rngZelle As Range

For Each rngZelle In Range("A1:h300")
If rngZelle.Interior.ColorIndex = 3 Then rngZelle.ClearContents
Next



For Each rngZelle In Range("A1:h300")
If rngZelle.Interior.ColorIndex = 23 Then rngZelle.ClearContents
Next


For Each rngZelle In Range("A1:h300")
If rngZelle.Interior.ColorIndex = 44 Then rngZelle.ClearContents
Next

Sheets("SOLL IST UHD 15min").Select
End Sub


Problem bei der Sache-> die komplette hat soviele Formeln mittlerweile drin das er sich ein Wolf rechnet wenn er jede rote Zelle einzeln löscht.

Er löscht die Zelle und dann rechnet Excel durch. Dann löscht er die nächste Zelle und Excel rechnet wieder. Das dauert bis zu 30 min.

Wäre für jede hilfe dankbar

 

Hallo
Statt 3 Schleifen arbeite mit Case. Berechnung und Bildschirmaktuellisierung ausschalten.
So solte es schneller gehen.
Code:

Edit:

Wenn Du Formeln drin hast und der Wert soll bleiben, dann musst du diese Zeile einsetzen:
Code:

gruss hary

 

DANKE es klappt genauso so wie ich es mir vorgestellt habe es dauert jetzt nicht mal mehr eine min. Großes DAnke

 

Hallo
Gern geschehen.
Aber:

Nu ist die Kaffepause wech. ;-))
gruss hary