Hallo,
ich möchte eine Zelle, z.b. G4 bedingt formatieren, sodass sie mir „ja“ anzeigt, wenn ich eine 1 eingebe und „Grün“ unterlegt wird. Zweite Bedingung, gebe ich eine 2 ein, zeigt mir die Zelle „offen“ an und ist gelb unterlegt.
Kann mir jemand helfen?
Gruss
Matthias
Hallo Matthias,
du musst nur das hier in den Makrocode des Tabellenblatts kopieren:
Private Sub Worksheet\_Change(ByVal Target As Range)
With Target
If .Address = "$G$4" Then
If .Value = 1 Then
.Interior.ColorIndex = 4
.Value = "ja"
ElseIf .Value = 2 Then
.Interior.ColorIndex = 6
.Value = "offen"
ElseIf (.Value "ja" And .Value "offen") Then
.Interior.ColorIndex = xlNone
End If
End If
End With
End Sub
Gruß
smalbop
Hallo,
ich möchte eine Zelle, z.b. G4 bedingt formatieren, sodass sie
mir „ja“ anzeigt, wenn ich eine 1 eingebe und „Grün“ unterlegt
wird. Zweite Bedingung, gebe ich eine 2 ein, zeigt mir die
Zelle „offen“ an und ist gelb unterlegt.
Hallo Matthias,
wie wäre es mit einem benutzerdefiniertem Zellenformat:
> Rechtsklick auf die Zelle >Zelle formatieren >Benutzerdefiniert >
[=1]„JA“;[=2]„offen“;Standard
Anschließend in der bedingten Formatierung noch
Zellwert=1 >grün
Zellwert=2 >gelb
einstellen.
Gruß Holger
benutzerdefiniertem Zellenformat:
[=1]„JA“;[=2]„offen“;Standard
Hallo Holger,
Sternchen.
Wo lernt man solche Formatierungsregeln?
War mir bisher völlig unbekannt.
Gruß Fritz
Ja, danke Fritz.
Etwas angepasst gibt es hier so einiges an Beispiele:
http://www.online-excel.de/excel/singsel.php?f=71#s4
Leider ist bei drei verschiedene Formatierungen Schluss.
Für kleine Sachen aber oft ausreichend.
Gruß Holger
Danke
Gruß Fritz
Hallo Holger,
funktioniert mit „Ja“ + „Offen“, aber bei der dritten Bedingung =3"Nein" bekomme ich eine Fehlermeldung.
Hast Du noch eine Lösung dafür?
Gruss
Matthias
Hallo smalbop,
funkioniert bei mir leider nicht so ganz, wenn ich in die genannte Zelle die 1 eingebe wird die Zelle Grün,zeigt aber weiter die 1 an. Erst wenn ich nochmal auf die Zelle klicke, erscheint das „ja“.
Zudem brauche ich noch eine dritte Bedingung, 3=Nein.
Hast Du vielleicht eine Lösung, dass, wenn ich die 1, 2, oder 3 eingebe,dann sofort der „Text“ erscheint?
Gruss
Matthias
hallo,
eine dritte Formatierung für „den Rest“ also ohne [=3] sollte funktionieren:
[=1]„JA“;[=2]„offen“;„Nein“
Gruß Holger
Zudem brauche ich noch eine dritte Bedingung, 3=Nein.
Hast Du vielleicht eine Lösung, dass, wenn ich die 1, 2, oder
3 eingebe,dann sofort der „Text“ erscheint?
Hallo Matthias,
probier#s mal so:
Private Sub Worksheet\_Change(ByVal Target As Range)
With Target
If .Address = "$G$4" Then
Application.EnableEvents = False
Select Case .Value
Case 1
.Interior.ColorIndex = 4
.Value = "Ja"
Case 2
.Interior.ColorIndex = 6
.Value = "Offen"
Case 3
.Interior.ColorIndex = 12
.Value = "Nein"
Case Else
.Interior.ColorIndex = xlNone
End Select
Application.EnableEvents = True
End If
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
hat geklappt, vielen Dank.
Eine weiter Frage habe ich noch.
Bin in VBA Anfänger, wie oder was sind gute Bücher, Webseiten, wo man diese Programiersprache lernen kann?
Gruss
Matthias
Hallo
hat geklappt, vielen Dank.
Programmieren ist nett, aber wie man sieht, anfällig. Die Lösung von EchoOn kommt ohne programmieren aus und geht auch nicht langsamer, ist also eigentlich besser. (Das mit dem Ausdruck im benutzerdefinierten Zellformat kannte ich auch noch nicht, sonst hätte ich es auch so gelöst.)
Bin in VBA Anfänger, wie oder was sind gute Bücher, Webseiten,
wo man diese Programiersprache lernen kann?
Michael Kofler Excel programmieren
hat mir geholfen
Gruß
smalbop