Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

benötige Hilfe bei - wenn dann text farbig





Frage

einen schönen guten abend! habe schon über die suchfunktion versucht etwas zu finden für mein problem, aber nichts passendes gefunden. vielleicht könnt ihr mir helfen ? egal ob formel, vba oder bedingte formatierung, wäre über jede hilfe dankbar ;o) würde gerne folgendes realisieren wenn möglich: in spalte b6-b50 stehen namen in der farbe schwarz (automatisch) wenn ich jetzt in f6-f50, sagen wir mal in der zelle F10 den buchstaben "D" eingebe, soll sich der text in zelle B10 automatisch in blau einfärben. ist das möglich ? sollte ich irgendwelche informationen vergessen oder unverständlich ausgedrückt haben, bitte nicht böse sein, werde sie dann natürlich nachreichen. vielen dank ;o) internette grüsse mick

Antwort 1 von tracer

hallo poncho,

das solte aber schon über Bedingte formatierung gehn.
Hast du vor , in z.B. F10 Länderkürzel einzugeben ?

Antwort 2 von nighty

hi all :)

hier 2 beispiele in vb

gruss nighty

altf11/projektexplorer/in deine tabelle einfuegen

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, Target.Column) = "D" Then Cells(Target.Row, 2).Font.ColorIndex = 6
If Cells(Target.Row, Target.Column) = "L" Then Cells(Target.Row, 2).Font.ColorIndex = 0
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim farbe(1, 1) As String
Dim zaehler1 As Integer
farbe(0, 0) = "ROT"
farbe(0, 1) = "3"
farbe(1, 0) = "SCHWARZ"
farbe(1, 1) = "0"
For zaehler1 = 0 To 1
If Cells(Target.Row, Target.Column) = farbe(zaehler1, 0) Then
Cells(Target.Row, 2).Font.ColorIndex = farbe(zaehler1, 1)
End If
Next zaehler1
End Sub

Antwort 3 von Ponscho

hallo tracer,

nein, ein "D" für DVD

wie muss denn die formel genau lauten ?
hab schon einiges ausprobiert, aber keine veränderung gemerkt.

z.b. spalte F markiert und eingegeben:
=wenn(F6:F50;"DVD"), und dann eben format / blau.
will aber nicht so richtig

internette grüsse
Ponscho

Antwort 4 von Ponscho

hallo nighty,

das wäre genau das was ich gesucht habe.
könnte man das noch ausbauen, dass die schrift farbig und fett wird und beim rausnehmen(löschen) des buchstabens auch
die farbe der schrift in den urzustand gesetzt wird ?

internette grüsse
Ponscho

Antwort 5 von _tracer

habe das gefühl, das
nighty dein Ansprechpartner für die
Sache sein sollte.

grüsse.

Antwort 6 von Ponscho

ich danke dir trozdem herzlich tracer ;o)

internette grüsse
Ponscho

PS: du kannst mir vielleicht trotzdem die formel für die
bedingte formatierung posten, wer weiss, für was ich sie mal brauchen kann...

Antwort 7 von _tracer

also ,
bedingte formatierung auf die Zelle, die
Verändert werden soll,
erstes Feld: Wähle FORMEL ,
zweites Feld : UND(F10="dvd")
dann Schalter Format: Reiter Schrift
und dort Auswahl für FARBE treffen Fertig...



grüsse
tracer

Antwort 8 von _tracer

bei bedarf in andere betroffene Zellen kopieren,
und natürlich immer die Bezüge zu den Zellen verändern,
die ABGEFRAGT werden sollen.

Antwort 9 von Ponscho

hallo,

hatte vergessen zu erwähnen, dass ich diesen code dazu genommen habe

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, Target.Column) = "D" Then Cells(Target.Row, 2).Font.ColorIndex = 6
If Cells(Target.Row, Target.Column) = "L" Then Cells(Target.Row, 2).Font.ColorIndex = 0
End Sub


internette grüsse
Ponscho

Antwort 10 von nighty

hi ponscho :)

wie gewünscht :)

gruss nighty

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
Else
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub

Antwort 11 von Ponscho

hallo nighty ;o)

perfekt, funktioniert super, danke !

habe aber gemerkt, dass ich in post 4 vergessen habe anzugeben, dass du die zwei verschiedenen buchstaben "D" und "L" wie du es im ersten code hattest, drin lassen kannst.

habe dann versucht nach:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Then


If Cells(Target.Row, Target.Column) = "L" Then

Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
Else
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub 


einzusetzen funktioniert aber nicht.

@tracer auch ein dank an dich, deine formel funktioniert auch ;o)

Antwort 12 von nighty

hi ponscho :)

so vielleicht :))

gruss nighty

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
End If
If Cells(Target.Row, Target.Column) = "L" Then
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub

Antwort 13 von Ponscho

guten morgen nighty ;o)

nicht ganz, irgendwie so, natürlich funktioniert mein
gebastel nicht

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
If Cells(Target.Row, Target.Column) = "L" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
Else
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub


in worten:
der text in spalte B soll sich entweder bei eingeben des buchstabens "D" oder "L" in spalte F, automatisch in fett/blau ändern. beim löschen des buchstabens soll es in die
ursprungsform standard/schwarz wechseln.

internette grüsse
Ponscho

Antwort 14 von nighty

hi ponscho :)

dann so :))

gruss nighty

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Or Cells(Target.Row, Target.Column) = "L" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
End If
If Cells(Target.Row, Target.Column) = "" Then
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub

oder so :))
selbe ergebnis nur anders aufgebaut

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then
If Cells(Target.Row, Target.Column) = "D" Or Cells(Target.Row, Target.Column) = "L" Then
Cells(Target.Row, 2).Font.ColorIndex = 5
Cells(Target.Row, 2).Font.FontStyle = "Fett"
else
Cells(Target.Row, 2).Font.ColorIndex = 0
Cells(Target.Row, 2).Font.FontStyle = "Standard"
End If
End If
Application.EnableEvents = True
End Sub

oder auch select case zu beachten ist ,was schneller wäre :)

gruss nighty

Antwort 15 von Ponscho

guten morgen nighty ;o)

volltreffer, dass ist es was ich gesucht habe ;o)

vielen herzlichen dank, für deine geduld und zeitopferung !


internette grüsse
Ponscho

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: