Office: Bei Eingabe in Zellen Hintergrundfarbe ändern

Hallo Leute,

hatte mal wieder eine gute Idee, aber mit der Ausführung ist es nicht so leicht.

Also ich möchte in ein Tabellenblatt wo ich Lab Werte eintrage verschiedene Bedingungen vorgeben.

Und die Bedingungen sollten für die ganze Tabellenblatt gelten.

0-70 grün < 70 - 1 braun und ab 1 dann rot !

hoffe mal jemand kann mir da wieder auf die Sprünge helfen.

Danke mal ! *Smilie

Gruss vom Wolf

:)

 

Moin, Wolf,

wie wäre es mit einer Beispielmappe, denn so kann ich nur sagen, dass 1 (was ja rot werden soll) im Bereich von 0 - 70 enthalten ist. Mir sagt auch die Bedingung
Code:

nicht so wirklich viel...

Code:

 

ich hab da ein Komma vergessen !

es soll natürlich 0,70 heissen


ich werde mal eine Beispielmappe machen !*boah

 

Moin,. Wolf,

Kommazahlen sind im VBA-Code mit Punkt einzutragen, so dass sich die Auswertung dann wie folgt ändern sollte:

Code:

 

Gruss

wolf

 

Moin, WOlf,

Code:

Code gehört hinter Tabelle1 - Rechtsklick auf den Tabellenreiter unten und Code anzeigen oder ALT+F11/im Projektexplorer die Arbeitsmappe und die Tabelle suchen und Rechtsklick/Code anzeigen oder Doppelklick auf die Tabelle im Projektexplorer...

 

super funktioniert super !

Danke !

Gruss Wolf

 

Hallo Leute,

der untenstehende Code funktioniert ja super, aber habe festgestellt das es noch besser für mich wäre wenn ich noch mehr Spalten ansprechen könnte.


Wenn ich z.B. noch die Spalte F ansprechen wollte !

Und super wäre auch wenn mir mal jemand sagen würde, wie der Code zustande kommt. Das ich auch mal einwenig mitdenken könnte wie das funktioniert ;-) hab zwar nicht viel Ahnung aber doch ein bisschen.

Mir müsste mal einer erklären, wie man so ein Code aufbaut und zusammen stellt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngInterior As Long
'Prüfung, dass nur eine Zelle ausewählt wurde
If Target.Count > 1 Then Exit Sub
'Nur in den Spalten A bis C wird der Code ausgeführt
If Not Intersect(Target, Range("A:C")) Is Nothing Then
Select Case Target.Value
Case Is >= 1
lngInterior = 3
Case Is >= 0.7
lngInterior = 53
Case 0 To 0.7
lngInterior = 42
Case Else
lngInterior = xlNone
End Select
With Application
.EnableEvents = False
Target.Interior.ColorIndex = lngInterior
.EnableEvents = True
End With
End If
End Sub

Danke mal !

würde mich über ein paar Beispiel Informationen freuen.

Gruss

Wolf38*wink.gif*

 

Moin, Wolf,

und ich würde mich sehr freuen, wenn nicht Nachfragen kommen, die beantwortet werden, aber nicht in dem dann im letzten Posting dargelegten Code enthalten sind. *frown.gif*

Hilfe bringt in der VBE der Objektkatalog, Aufruf per F2, oder das Platzieren des Cursors in Schlüsselwörtern und das Drücken von F1. Hilfreich ist weiterhin das Durchlaufen des Codes im Einzelschrittmodus (Ansicht sowohl Codefenster als auch Tabelle), dazu wechselt man in den Code und setzt bei der ersten ausführbaren Anweisung einen Haltepunkt (entweder Klick mit der Maus in den Rahmen links neben der Codezeile oder Platzieren Cursor und Aufruf über das Menü Debuggen/Haltepunkt ein/aus) und kann von dort aus per F8 im Einzelschrittmodus weiter durch das Programm gehen.

Code:

Aufruf ist die direkte Zelländerung in der Tabelle, hinter der sich der Code befindet.

 

Super da hab ich wieder was zu nachdenken!


Gruss

Wolfram *Smilie