Supportnet / Forum / Tabellenkalkulation
Farben in Excel!
Frage
Hallo Leute!
Eine Frage:
In Excel gibt es ja leider keine gute Farbpalette zum färben für Zellen.
Wie kann ich denn auch im Excel auf mehr Farben zugreifen?!
Vielen Dank für eure Hilfe!
MfG
Hapo
Antwort 1 von JLM
Hallo Hapo
Aus der Excel Hilfe: Hast schon probiert Menü Extras - Optionen -> Reiter Farbe - Schaltfläche Bearbeiten
Hier kannst du Anpassen wie du willst
Gruss
JLM
Aus der Excel Hilfe: Hast schon probiert Menü Extras - Optionen -> Reiter Farbe - Schaltfläche Bearbeiten
Hier kannst du Anpassen wie du willst
Gruss
JLM
Antwort 2 von Hapo
hmm ja diese funktion kenn ich - aber das ist echt umständlich!
gibts nicht einen einfachen Makro - wo ich zB die Farbnummer reinschreibe und er färbt dann die dazugehörigen Zellen!
MfG
gibts nicht einen einfachen Makro - wo ich zB die Farbnummer reinschreibe und er färbt dann die dazugehörigen Zellen!
MfG
Antwort 3 von nighty
hi all :)
eine einfache loesung ist das ereignis des zellwechsels
einzufuegen alt f11/projektexplorer/Tabelle1
gruss nighty
syntaxeingabe in der zelle
$3 oder $1 bzw $INDEX
farbe loeschen
$-0
das $ zeichen hier als merkmal bzw erkennung eingesetzt das die farbe geaendert werden soll
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Mid(Cells(Target.Row, Target.Column), 1, 1) = "$" Then
If Cells(Target.Row, Target.Column) = "$-0" Then
Sheets(1).Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
Sheets(1).Cells(Target.Row, Target.Column) = ""
Else
Sheets(1).Cells(Target.Row, Target.Column).Interior.ColorIndex = Val(Mid(Cells(Target.Row, Target.Column), 2, Len(Target) - 1))
Sheets(1).Cells(Target.Row, Target.Column) = ""
End If
End If
Application.EnableEvents = True
End Sub
eine einfache loesung ist das ereignis des zellwechsels
einzufuegen alt f11/projektexplorer/Tabelle1
gruss nighty
syntaxeingabe in der zelle
$3 oder $1 bzw $INDEX
farbe loeschen
$-0
das $ zeichen hier als merkmal bzw erkennung eingesetzt das die farbe geaendert werden soll
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Mid(Cells(Target.Row, Target.Column), 1, 1) = "$" Then
If Cells(Target.Row, Target.Column) = "$-0" Then
Sheets(1).Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
Sheets(1).Cells(Target.Row, Target.Column) = ""
Else
Sheets(1).Cells(Target.Row, Target.Column).Interior.ColorIndex = Val(Mid(Cells(Target.Row, Target.Column), 2, Len(Target) - 1))
Sheets(1).Cells(Target.Row, Target.Column) = ""
End If
End If
Application.EnableEvents = True
End Sub

