Office - Word, Excel und Co. 9.710 Themen, 40.895 Beiträge

Verfolgung starten Optionen

Zellen einfärben bei Excel über Formel oder Funktion

lcars / 4 Antworten / Flachansicht Nickles

Hallo zusammen.

Ich habe folgendes Problem. Ich habe eine Tabelle in dessen Ergebnisspalte entweder ein "+" oder ein"-" ausgegeben wird.
Um die ganze Sache optisch etwas interessanter zu machen, hätte ich es gerne das die Zelle (oder die Zelle dahinter) in der das "+" steht grün gefüllt ist und die mit dem "-" rot.
Kennt irgend jemand eine Formel oder Funktion mit der das möglich ist???
Das "+" und das "-" selber bekomme ich eingefärbt, aber leider nicht die komplette Zelle.

Gruß lcars

bei Antwort benachrichtigen
Hallo lcars, sowas kannst Du mit der bedingten Formatierung machen. Findest ... Borlander
Vielen Dank Borlander. Das war genau das was ich gesucht habe. Gruß lcars lcars
Kolti lcars „Zellen einfärben bei Excel über Formel oder Funktion“
Optionen

Hier hast Du ein Kalendermakro zum Probieren.
Dazu schreibst Du in Zelle A1 die Jahreszahl (2002) und führst das Makro aus. Da werden auch Zellen eingefärbt. Das mußt Du dann auf Dein Problem umsetzen.


Option Explicit
Sub KalenderEinfügen()
Dim Z, S, Year, Month, Day
Year = ActiveCell
If Not IsDate("1.1." & Year) Then End
If Year 2078 Then End
Z = ActiveCell.Row
S = ActiveCell.Column
'Formatierungen und Ausgangswerte
Range(Cells(Z, S + 1), Cells(Z, S + 12)).NumberFormat = "MMM"
Range(Cells(Z, S + 1), Cells(Z, S + 12)).HorizontalAlignment = xlCenter
Range(Cells(Z + 1, S), Cells(Z + 31, S)).NumberFormat = "0""."""
Range(Cells(Z + 1, S), Cells(Z + 31, S + 12)).HorizontalAlignment = xlLeft
Range(Cells(Z + 1, S + 1), Cells(Z + 31, S + 12)).NumberFormat = "TTT"
Range(Cells(Z, S), Cells(Z + 31, S + 12)).Borders.Color = RGB(0, 0, 0)
Range(Cells(Z, S), Cells(Z + 31, S + 12)).Interior.Color = RGB(255, 255, 255)
Range(Cells(Z + 1, S), Cells(Z + 31, S + 12)).Formula = ""
'Felder ausfüllen
For Month = 1 To 12
Cells(Z, S + Month) = CDate(1 & "." & Month & "." & Year)
For Day = 1 To 31
Cells(Z + Day, S) = Day
If IsDate(Day & "." & Month & "." & Year) Then
Cells(Z + Day, S + Month) = CDate(Day & "." & Month & "." & Year)
If WeekDay(Cells(Z + Day, S + Month)) = 1 Then
Cells(Z + Day, S + Month).Interior.Color = RGB(196, 196, 196)
ElseIf WeekDay(Cells(Z + Day, S + Month)) = 7 Then
Cells(Z + Day, S + Month).Interior.Color = RGB(224, 224, 224)
End If
End If
Next
Next
End Sub

bei Antwort benachrichtigen
Auch an Kolti vielen Dank. Bin in VBA zwar nicht so firm, ist aber eine ... lcars