Hallo
ich bin immer noch auf der Suche nach 2 Specials.
Bedingte Formatierung, man kann hier 3 festlegen. Geht auch mehr???
In A1 steht ein Wert und der Hintergrund ist rot.
In A2 soll automatisch Farbe und Wert von A1 gesetzt werden
Den Wert erreiche ich mit =Zelle (A1). Wie siehts mit der
Hintergrundfarbe aus? Ich kann nicht glauben, das das nicht geht.
mfg Werner
Hi,
Hallo
ich bin immer noch auf der Suche nach 2 Specials.
- Bedingte Formatierung, man kann hier 3 festlegen. Geht auch
mehr???
Also, ich kann problemlos mehr als 3 Kriterien für eine bedingte Formatierung festlegen - Excel 2007
- In A1 steht ein Wert und der Hintergrund ist rot.
In A2 soll automatisch Farbe und Wert von A1 gesetzt werden
Den Wert erreiche ich mit =Zelle (A1). Wie siehts mit der
Hintergrundfarbe aus? Ich kann nicht glauben, das das nicht
geht.
Wenn der Wert von A2 identisch mit A1 ist, kannst du doch einfach die bedingte Formatierung von A1 nach A2 kopieren.
mfg Werner
Hallo
ich habe Excel 2003. Geht das hier nicht???
Wenn doch, wie???
Die gleiche Frage für die Formatierung unter 2003.
Ich will nicht kopieren!!!, es soll flexibel sein.
Wenn ich den Hintergrund von A1 ändere, soll er auch automatisch in A2 so sein. Das ist ja nur ein einfaches Bsp.
mfg Werner
ich habe Excel 2003. Geht das hier nicht???
Wenn doch, wie???Die gleiche Frage für die Formatierung unter 2003.
Ich will nicht kopieren!!!, es soll flexibel sein.
Wenn ich den Hintergrund von A1 ändere, soll er auch
automatisch in A2 so sein. Das ist ja nur ein einfaches Bsp.
Hallo Werner,
in 97-2003 haste nur max. 3 Bedingungen bei der bed. Formatierung.
Die Anzahl in 2007 ist mir grad nicht bekannt.
Lösung für dein XL2003 geht m.W. nur mit Vba.
Aber auch nicht so einfach wie im pseudocode:
Farbe(A2)=farbe(A1), wenn A1 seine Farbe ändert.
Ist komplizierter, aber machbar. Excelformeln und auch Vba können nur manuell erzeugte Farben direkt auslesen, Farben die durch bed. Formatierung kommen auszulesen geht nicht direkt.
Vba muß alle bed. Formatierungsbedingungen nachstellen und diese auswerten.
Oder aber, bei unbekannten Bedingungen diese auslesen und auswerten.
Nenne mal die Bedingungen für A1, mal schauen…
Schwierig, was aber eher aufwendig, mühselig bedeutet, wäre wenn es vollkommen flexibel sein sollte. Also in A1 unbekannte Bedingungen herrschen und A2 soll trotzdem genauso ticken wie A1.
Nachfolgend mal Code der sowas ähnliches macht.
Daran kannst du erahnen was da alles abzuprüfen ist.
Gruß
Reinhard
Option Explicit
'Dim AppObject As New clsWorkbook
Public BF As String, Zelle As Range, i As Byte
'Sub initializeClass()
' Set AppObject.App = Application
'End Sub
'
Sub BedingteFormatierungEinlesen()
' Code in diesem Modul weitestgehend entwickelt von Ypsilon (Micha)
BF = "Bedingte Formatierung(en):" & vbLf
If Selection.FormatConditions.Count = 0 Then GoTo Ende
For Each Zelle In Selection
Zelle.Select
For i = 1 To Zelle.FormatConditions.Count
BF = BF & Zelle.Address(0, 0) & ": "
With Zelle.FormatConditions.Item(i)
If .Type = 1 Then
BF = BF & "Zellwert ist "
Select Case .Operator
Case 1
BF = BF & "zwischen "
BF = BF & .Formula1 & " und "
BF = BF & .Formula2 & vbLf
erfüllte\_bedingung
Case 2
BF = BF & "nicht zwischen "
BF = BF & .Formula1 & " und "
BF = BF & .Formula2 & vbLf
erfüllte\_bedingung
Case 3
BF = BF & "gleich "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
Case 4
BF = BF & "ungleich "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
Case 5
BF = BF & "größer "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
Case 6
BF = BF & "kleiner "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
Case 7
BF = BF & "größer gleich "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
Case 8
BF = BF & "kleiner gleich "
BF = BF & .Formula1 & " "
erfüllte\_bedingung
End Select
ElseIf .Type = 2 Then
BF = BF & "Formel ist "
BF = BF & .Formula1 & vbLf
erfüllte\_bedingung
Else
MsgBox "Unbekannter Typ: " & .Type & vbLf & "Admin anrufen!"
Exit Sub
End If
End With
Next
Next Zelle
Ende:
End Sub
'
Sub BedingteFormatierungEinlesen2()
If Selection.FormatConditions.Count = 0 Then Exit Sub
BF = "Bedingte Formatierung:" & vbLf
For Each Zelle In Selection
For i = 1 To Zelle.FormatConditions.Count
BF = BF & Zelle.Address(0, 0) & ": "
With Zelle.FormatConditions.Item(i)
Select Case .Type
Case 1
BF = BF & "Zellwert ist "
Nummer = .Operator
Case 2
BF = BF & "Formel ist "
Nummer = 9
Case Else
MsgBox "papst anbeten"
Exit Sub
End Select
End With
Call FormatFormel(Nummer, .Formula1, .Formula2)
Call erfüllte\_bedingung
Next i
Next Zelle
End Sub
'
Sub erfüllte\_bedingung()
With Zelle.FormatConditions.Item(i).Interior
'Farbe
If Not .ColorIndex = Empty Then BF = BF & "Bei erfüllter Bedingung wird die Zelle " & Zelle.Address(0, 0) & " mit dem Colorindex " & .ColorIndex & " eingefärbt" & vbLf
'Muster
If Not .Pattern = Empty Then BF = BF & "Bei erfüllter Bedingung wird die Zelle " & Zelle.Address(0, 0) & " mit dem Muster " & .Pattern & " versehen" & vbLf
'Musterfarbe
If Not .PatternColorIndex = Empty Then BF = BF & "Bei erfüllter Bedingung wird das Zellenmuster " & Zelle.Address(0, 0) & " mit der Farbe " & .PatternColorIndex & " versehen" & vbLf
End With
With Zelle.FormatConditions.Item(i).Font
'Schriftfarbe -4105=Automatische farbe
If Not .ColorIndex = Empty Then BF = BF & "Bei erfüllter Bedingung wird die Zellenschrift in " & Zelle.Address(0, 0) & " mit der Schriftfarbe " & .ColorIndex & " eingefärbt" & vbLf
'Schriftart
If Not .Name = Empty Then BF = BF & "Bei erfüllter Bedingung wird die Zelle " & Zelle.Address(0, 0) & " mit dem Font " & .Name & " versehen" & vbLf
'Schriftstärke
If Not .FontStyle = Empty Then BF = BF & "Bei erfüllter Bedingung wird die Zelle " & Zelle.Address(0, 0) & " mit der Schriftstärke " & .FontStyle & " versehen" & vbLf
'Schriftgrösse
If Not .Size Then BF = BF & "Bei erfüllter Bedingung wird die Zelle " & Zelle.Address(0, 0) & " mit der Schriftgrösse " & .Size & " versehen" & vbLf
End With
With Selection.FormatConditions(i).Borders(xlLeft)
If Not .LineStyle = Empty Then BF = BF & "Bei erfüllter Bedingung erhält die Zelle " & Zelle.Address(0, 0) & " links eine " & Linienart(.LineStyle) & "-Linie in der Breite " & Liniendicke(.Weight) & " mit Farbe " & .ColorIndex & vbLf
End With
With Selection.FormatConditions(i).Borders(xlRight)
If Not .LineStyle = Empty Then BF = BF & "Bei erfüllter Bedingung erhält die Zelle " & Zelle.Address(0, 0) & " rechts eine " & Linienart(.LineStyle) & "-Linie in der Breite " & Liniendicke(.Weight) & " mit Farbe " & .ColorIndex & vbLf
End With
With Selection.FormatConditions(i).Borders(xlTop)
If Not .LineStyle = Empty Then BF = BF & "Bei erfüllter Bedingung erhält die Zelle " & Zelle.Address(0, 0) & " oben eine " & Linienart(.LineStyle) & "-Linie in der Breite " & Liniendicke(.Weight) & " mit Farbe " & .ColorIndex & vbLf
End With
With Selection.FormatConditions(i).Borders(xlBottom)
If Not .LineStyle = Empty Then BF = BF & "Bei erfüllter Bedingung erhält die Zelle " & Zelle.Address(0, 0) & " unten eine " & Linienart(.LineStyle) & "-Linie in der Breite " & Liniendicke(.Weight) & " mit Farbe " & .ColorIndex & vbLf
End With
'noch offen :frowning: gibt es die Möglichkeiten alle ? \*grummel\*
' With Selection.Font
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' End With
End Sub
'
Sub FormatFormel(ByVal Nummer As Byte, ByVal Bed1, Optional ByVal Bed2)
On Error GoTo Fehler
Dim Wahl, Zelle, N
Wahl = Array("Dummy", "zwischen", "nicht zwischen", "gleich", "ungleich", "größer", "kleiner", "größer gleich", "kleiner gleich", "Formel ist")
Select Case Nummer
Case 1, 2
BF = BF & Wahl(Nummer) & Bed1 & "und" & Bed2 & vbLf
Case 3 To 9
BF = BF & Wahl(Nummer) & Bed1 & vbLf
Case Else
MsgBox "papst anbeten"
End Select
Exit Sub
Fehler:
MsgBox "bla"
End Sub
'
Function Liniendicke(ByVal Nummer) As String
'xlHairline, xlThin, xlMedium oder xlThick. Long Schreib-Lese-Zugriff.
Select Case Nummer
Case 1
Liniendicke = "xlHairline"
Case 2
Liniendicke = "xlThin"
Case -4138
Liniendicke = "xlMedium"
Case 4
Liniendicke = "xlxlThick"
Case Else
MsgBox "Fehler mit Liniendicke"
End Select
End Function
'
Function Linienart(ByVal Nummer) As String
Select Case Nummer
Case 1
Linienart = "xlContinuous"
Case -4115
Linienart = "xlDash"
Case 4
Linienart = "xlDashDot"
Case 5
Linienart = "xlDashDotDot"
Case -4118
Linienart = "xlDot"
Case -4119
Linienart = "xlDouble"
Case 13
Linienart = "xlSlantDashDot"
Case -4142
Linienart = "xlLineStyleNone"
Case Else
MsgBox "Fehler mit Linienart"
End Select
End Function
Hallo
ziemlich armselig, wenn es bei 2007 öfter geht als bei 2003.
Kann man das anders realisieren??? Gibt es ein Upgrade für 2003, welches das kann. Kann doch nicht sein.
Bei dem Format, geht es nur um die Hintergrundfarbe, welche zusätzlich zum Zellwert aktualisiert werden soll.
Da der Zellwert einfach zu übertragen ist, geht es ja nur um die Farbe. Das ganze soll absolut flexibel sein, d.h. auch unterschiedliche Farben kennen und übertragen.
mfg werner
Hallo Werner,
ziemlich armselig, wenn es bei 2007 öfter geht als bei 2003.
frag Microsoft 
Kann man das anders realisieren???
Nur wie ich sagte, ggfs. aufwendig mit Vba.
Gibt es ein Upgrade für
2003, welches das kann.
Nein.
Kann doch nicht sein.
Tja nun, doch.
Bei dem Format, geht es nur um die Hintergrundfarbe, welche
zusätzlich zum Zellwert aktualisiert werden soll.
Nuschel ich? Ich hab doch gesagt, Farben die durch bed. Formatierung entstehen KANN man nicht auslesen, auch in 2007 nicht.
Frag bitte Bill gates warum das so ist *grins*
Gruß
Reinhard
Hi
scheinbar schon, ich höre dich nicht, lol.
Gehts anders, zb. sagen wir über eine Hilfszelle, wo ich eine Zahl oder den Farbcode renschreibe und dann über diese Zahl die Farbe der Zelle zuweise. Also zb, wenn in A3=1 steht, dann setze die Hintergrundfarbe in A1=rot, wenn A3=2, dann A1=blau usw.
mfg Werner
Hallo nochmal,
also, wie du siehst, hast du genau 3 Alternativen:
So sieht es nun mal aus, da hilft es auch nicht sich ein Magengeschwür aufzuregen.
Hallo Werner,
scheinbar schon, ich höre dich nicht, lol.
*sehr grins* gute Antwort
Gehts anders, zb. sagen wir über eine Hilfszelle, wo ich eine
Zahl oder den Farbcode renschreibe und dann über diese Zahl
die Farbe der Zelle zuweise. Also zb, wenn in A3=1 steht, dann
setze die Hintergrundfarbe in A1=rot, wenn A3=2, dann A1=blau
usw.
Das kannst du gerne tun. Also MANUELL in A3 was schreiben.
Bringt aber nix.
Du kannst für die bed. Formatierung in A2 schon die zahl/den Wert in A3 auswerten, aber nur DREI Werte.
Insofern ist die Einführung einer Hilfszelle sinnlos, könntest ja gleich A1 auswerten.
Gruß
Reinhard
mfg Werner
Kann mir jmd mal den Code als Script in ein Exceldokument einbauen.
Es gibt wohl die Farben 1-56 aus.
Ich wollte mit diesem Code spielen und mal sehen, was ich erreiche damit. Mit VB kenn ich mich aus, vielleicht gehts ja so.
Kann mir jmd die Datei zuschicken bitte mit dem eingebauten skript.
wäre super (Email [email protected])
mfg werner
Set objExcel = CreateObject („Excel.Application“)
objExcel.Visible = True objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add() Set objWorkbook = objExcel.Workbooks.Add ()
Set objWorksheet = objWorkbook.Worksheets(1) Set objWorksheet = objWorkbook.Worksheets (1)
For i = 1 to 14 Für i = 1 bis 14
objExcel.Cells(i, 1).Value = i objExcel.Cells (i, 1). Value = i
objExcel.Cells(i, 2).Interior.ColorIndex = i objExcel.Cells (i, 2). Interior.ColorIndex = i
Next Nächste
For i = 15 to 28 Für i = 15 bis 28
objExcel.Cells(i - 14, 3).Value = i objExcel.Cells (i - 14, 3). Value = i
objExcel.Cells(i - 14, 4).Interior.ColorIndex = i objExcel.Cells (i - 14, 4). Interior.ColorIndex = i
Next Nächste
For i = 29 to 42 Für i = 29 bis 42
objExcel.Cells(i - 28, 5).Value = i objExcel.Cells (i - 28, 5). Value = i
objExcel.Cells(i - 28, 6).Interior.ColorIndex = i objExcel.Cells (i - 28, 6). Interior.ColorIndex = i
Next Nächste
For i = 43 to 56 Für i = 43 bis 56
objExcel.Cells(i - 42, 7).Value = i objExcel.Cells (i - 42, 7). Value = i
objExcel.Cells(i - 42, 8).Interior.ColorIndex = i objExcel.Cells (i - 42, 8). Interior.ColorIndex = i
Next Nächste
Farben in Excel auflisten
Hallo Werner,
Kann mir jmd mal den Code als Script in ein Exceldokument
einbauen.
kann ich, aber schau dir mal meinen nachstehenden Code an.
Zum Start Sub Farben starten.
Es gibt wohl die Farben 1-56 aus.
Ja. Standardmäßig sind’s aber nur 40 Farben, da die 16 Standardfarben doppelt sind. Sortiere mal nach meinem Code nach Spalte D…
wäre super (Email [email protected])
Das w-w-w-Team tut viel damit deine emailadresse hier geschützt ist vor Spam. Bitte den hiesigen Mod, deine mailadresse im Text zu löschen.
Gruß
Reinhard
Das meiste im Code heut morgen frisch gemopst von hajo und nepu
Option Explicit
Sub Farben()
Dim Zei As Long
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
For Zei = 1 To 56
Cells(Zei + 1, 1) = Zei
Cells(Zei + 1, 2).Interior.ColorIndex = Zei
Cells(Zei + 1, 4) = Cells(Zei + 1, 2).Interior.Color
Call RGBAnzeige
Call Farbe
Next Zei
Cells(1, 1) = "Farb-Nr"
Cells(1, 2) = "Farbe"
Cells(1, 4) = "RGB"
Application.ScreenUpdating = True
End Sub
Sub RGBAnzeige()
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Dim I As Integer
For I = 1 To 56
Wert = Cells(I + 1, 2).Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
Cells(I + 1, 5) = Rot
Cells(I + 1, 6) = Grün
Cells(I + 1, 7) = Blau
Next I
Cells(1, 5) = "Rot"
Cells(1, 6) = "Grün"
Cells(1, 7) = "Blau"
End Sub
Sub tt()
Dim I
For I = 1 To 14
Cells(I, 1).Value = I
Cells(I, 2).Interior.ColorIndex = I
Next
For I = 15 To 28
Cells(I - 14, 3).Value = I
Cells(I - 14, 4).Interior.ColorIndex = I
Next
For I = 29 To 42
Cells(I - 28, 5).Value = I
Cells(I - 28, 6).Interior.ColorIndex = I
Next
For I = 43 To 56
Cells(I - 42, 7).Value = I
Cells(I - 42, 8).Interior.ColorIndex = I
Next
End Sub
Sub Farbe()
Dim I As Long
For I = 1 To 56
Cells(I + 1, 3) = FarbName(I)
Next I
Cells(1, 3) = "Farbname"
End Sub
Function FarbName(FarbIndex As Long) As String
Dim Farbcode As Long
Farbcode = ActiveWorkbook.Colors(FarbIndex)
Select Case Farbcode
Case 0
FarbName = "Schwarz"
Case 16777215
FarbName = "Weiß"
Case 255
FarbName = "Rot"
Case 65280
FarbName = "Grelles Grün"
Case 16711680
FarbName = "Blau"
Case 65535
FarbName = "Gelb"
Case 16711935
FarbName = "Rosa"
Case 16776960
FarbName = "Türkis"
Case 128
FarbName = "Dunkelrot"
Case 32768
FarbName = "Grün"
Case 8388608
FarbName = "Dunkelblau"
Case 32896
FarbName = "Dunkelgelb"
Case 8388736
FarbName = "Violett"
Case 8421376
FarbName = "Blaugrün"
Case 12632256
FarbName = "Grau -25%"
Case 8421504
FarbName = "Grau -50%"
Case 16751001
FarbName = "Immergrün"
Case 6697881
FarbName = "Pflaume"
Case 13434879
FarbName = "Elfenbein"
Case 16777164
FarbName = "Helles Türkis"
Case 6684774
FarbName = "Dukelpurpur"
Case 8421631
FarbName = "Koralle"
Case 13395456
FarbName = "Meeresblau"
Case 16764108
FarbName = "Eisblau"
Case 8388608
FarbName = "Dunkelblau"
Case 16711935
FarbName = "Rosa"
Case 65535
FarbName = "Gelb"
Case 16776960
FarbName = "Türkis"
Case 8388736
FarbName = "Violett"
Case 128
FarbName = "Dnkelrot"
Case 8421376
FarbName = "Blaugrün"
Case 16711680
FarbName = "Blau"
Case 16763904
FarbName = "Himmelblau"
Case 16777164
FarbName = "Helles Türkis"
Case 13434828
FarbName = "Hellgrün"
Case 10092543
FarbName = "Hellgelb"
Case 16764057
FarbName = "Blassblau"
Case 13408767
FarbName = "Hellrosa"
Case 16751052
FarbName = "Lavendel"
Case 10079487
FarbName = "Gelbraun"
Case 16737843
FarbName = "Hellblau"
Case 13421619
FarbName = "Aquamarin"
Case 52377
FarbName = "Gelbgrün"
Case 52479
FarbName = "Gold"
Case 39423
FarbName = "Helles Orange"
Case 26367
FarbName = "Orange"
Case 10053222
FarbName = "Blaugrau"
Case 9868950
FarbName = "Grau - 40%"
Case 6697728
FarbName = "Dunkelblaugrün"
Case 6723891
FarbName = "Meeresgrün"
Case 13056
FarbName = "Dunkelgrün"
Case 13107
FarbName = "Olivgrün"
Case 13209
FarbName = "Braun"
Case 6697881
FarbName = "Pflaume"
Case 10040115
FarbName = "Indigoblau"
Case 3355443
FarbName = "Grau -80%"
Case Else
FarbName = "Farbskala"
End Select
End Function
Hallo
mh sieht gut aus.
Frage aber immer noch, kann ich den Hintergrund nun anhand deiner Spalten (Farbnr., RGB NR oder Anteilen) zuweisen.
Also zb B1=Hintergrundfarbe(Nr1) (nur vereinfacht).
Das wäre schon mal was.
mfg Werner
Skriptfragment
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call Zellenfarbe
End Sub
'Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range, strText As String
Select Case Target.Value
Case „a“
Target.Interior.ColorIndex = 3
Case „b“
Target.Interior.ColorIndex = 4
usw. …
End Select
End Sub
Hi
folgendes Skript ist schon mal gut, wenn man den Buchstaben b in eine Zelle schreibt, wird der Hintergrund grün.
Was muss man an dem Skript ändern, das dies nur für eine Spalte (zb A) oder eine Zeile (zb. 3) gilt.
Dann noch die Frage, was muss man ändern, das die Farbe nicht in der gleichen Zelle erscheint sondern eben in einer anderen, zb man gibt in B1 b ein, der Hintergrund wird aber in Z1 gesetzt.
Das wäre dann ja eigentlich schon was ich will.
Wenn ich nun deine Farben nehme und statt Buchstaben meine Forderungen ersetze, dann wäre ich schon am Ziel.
mfg Werner
Hallo Werner,
folgendes Skript ist schon mal gut, wenn man den Buchstaben b
in eine Zelle schreibt, wird der Hintergrund grün.Was muss man an dem Skript ändern, das dies nur für eine
Spalte (zb A) oder eine Zeile (zb. 3) gilt.
nach der Dim-Zeile folgendes:
If Target.Row 3 Then Exit Sub
bzw.
If Target.Column 1 Then Exit Sub
Man kann das leicht noch ausbauen. Das wird dann nötig wenn target nicht eine Zelle sein kann oder mehrere, dann wird das nötig.
Frag nach wenn das jmd. basteln soll.
Dann noch die Frage, was muss man ändern, das die Farbe nicht
in der gleichen Zelle erscheint sondern eben in einer anderen,
zb man gibt in B1 b ein, der Hintergrund wird aber in Z1
gesetzt.
Target.Offset(0,24).Interior.ColorIndex = 4
Das wäre dann ja eigentlich schon was ich will.
Wenn ich nun deine Farben nehme und statt Buchstaben meine
Forderungen ersetze, dann wäre ich schon am Ziel.
Gruß
Reinhard
Hallo
das mit den Row, Column klappt, aber das Target nicht,
also die Funktion wo die Farbe nicht in B1 sondern Z1 gesetzt wird.
Kannst du da nochmal schauen,
mfg niri