bei Eingabe Schriftfarbe ändern

[kingkong]

Hallo an die Gemeinde

besteht die Möglichkeit die Schriftfarbe zu ändern in diesem Makro sobald eine Eingabe in B3 gemacht wird ?

Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, Range("B3")) Is Nothing Then
       
            If Target = "" Then
            Target = "?"
            Target.Font.Color = RGB(0, 176, 80)
            Target.Font.Size = 20
                   
        End If

        Cancel = True
   
    End If

die Farbe soll schwarz sein und auch Schriftgröße 20


Danke Euch schon jetzt für die Hilfe !!!
   
End Sub

[Klaus-Dieter]

Hallo,

das schein mir ein ausgemachter Blödsinn zu sein. Intersect für eine einzige Zelle, da gibt es einfachere und kürzere Möglichkeiten. Wie willst du eine Eingabe ohne Inhalt machen, damit dein Makro startet?

[kingkong]

also das Makro startet beim öffnen und zeigt mir auch ein farbiges Fragezeichen an in B3.

nach Eingabe einer Zahl sollte B3 schwarz werden.

das war Mein Lösungsziel

[MisterBurns]

Dafür gibt es doch die bedingte Formatierung, ein Makro ist unnötig.

[kingkong]

habe es jetzt über die bedingte Formatierung hinbekommen. Danke

und geht es auch über diese Formatierung in einer Zelle denn Wert zu ändern der angezeigt wird wenn der Zellinhalt -30000 übersteigt ?

das wäre super.

[MisterBurns]

Zellinhalte können mit der bedingten Formatierung nicht geändert werden, sondern nur Formate, wie schon der Name impliziert.
Dafür brauchst du VBA.

[d'r Bastler]

Moin großer Affe

den folgenden Code fügst in die Tabelle ein, in der Du das Limit abfragst. iZeile, iSpalte (im Beispiel A1) und iLimit passt Du für das Arbeitsblatt an.

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSpalte As Integer, iZeile As Integer, iLimit As Integer

iSpalte = 1
iZeile = 1
iLimit = -30000

If Cells(iZeile, iSpalte).Value < iLimit Then
    Cells(iZeile, iSpalte).Value = "Kreditlimit überschritten!"
End If

End Sub

Gute Geschäfte!

[RPP63]

Zellinhalte können mit der bedingten Formatierung nicht geändert werden, sondern nur Formate, wie schon der Name impliziert.

Das ist natürlich völlig korrekt!
Aber:

und geht es auch über diese Formatierung in einer Zelle denn Wert zu ändern der angezeigt wird wenn der Zellinhalt -30000 übersteigt

Anzeige und Wert sind zwei verschiedene Sachen!
Ich kann mir durchaus ein rotes Fragezeichen ? anzeigen lassen, wenn bspw. beliebiger Text in einer Zelle steht.
Alle Zahlen >-30000 werden mit einem grünen 1111 angezeigt.
Kleinere Zahlen erhalten den Zyan-Text zu klein!
Das alles mit dem benutzerdefinierten Zahlenformat
[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?

	A
1	?
2	1111
3	zu klein!

Zelle	Format	Wert
A1	[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?	Rhabarber
A2	[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?	15
A3	[Grün][>-30000]1111;[Zyan]"zu klein!";;[Rot]\?	-32000

Da die Farbe nicht vom Tool angezeigt wird, hier der entsprechende Screenshot:
   

Gruß Ralf

[MisterBurns]

Ha, da hat der Ralf wieder klug geschi...  
Stimmt natürlich, birgt aber die Gefahr, dass mit dem eingegebenen Wert eine weitere Berechnung erfolgen könnte. Sprich, der Benutzer erhält zwar ein rotes Fragezeichen, wäre aber nicht gezwungen, den Wert zu ändern.

[RPP63]

Der Klugscheißer  wollte halt nur mal allgemein auf die mannigfaltigen Möglichkeiten des Zahlenformats hinweisen.
Über den Sinn (besser Unsinn) brauchen wir sicherlich nicht diskutieren.

Manchmal aber auch ganz nett,
z.B. positive Zahlen mit Alt+24, negative mit Alt+25 darzustellen, wobei dennoch normal gerechnet werden kann:
[Grün]↑;[Rot]↓;;