Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge

Verfolgung starten Optionen

Zellen einfärben bei Excel über Formel oder Funktion

lcars / 4 Antworten / Baumansicht 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
Borlander lcars „Zellen einfärben bei Excel über Formel oder Funktion“
Optionen

Hallo lcars,
sowas kannst Du mit der "bedingten Formatierung" machen. Findest Du im Format Menü.

CU Borlander

bei Antwort benachrichtigen
lcars Borlander „Hallo lcars, sowas kannst Du mit der bedingten Formatierung machen. Findest Du...“
Optionen

Vielen Dank Borlander. Das war genau das was ich gesucht habe.
Gruß lcars

bei Antwort benachrichtigen
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
lcars Kolti „Hier hast Du ein Kalendermakro zum Probieren. Dazu schreibst Du in Zelle A1 die...“
Optionen

Auch an Kolti vielen Dank. Bin in VBA zwar nicht so firm, ist aber eine super Herausforderung.
Gruß lcars

bei Antwort benachrichtigen