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 ?
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
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
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
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.
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...
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
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.
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
internette grüsse
Ponscho
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
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:
If Cells(Target.Row, Target.Column) = "L" Then
einzusetzen funktioniert aber nicht.
@tracer auch ein dank an dich, deine formel funktioniert auch ;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
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
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
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
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
volltreffer, dass ist es was ich gesucht habe ;o)
vielen herzlichen dank, für deine geduld und zeitopferung !
internette grüsse
Ponscho