Ampel Makro

Question

Hi Leute

Könnte mir vielleicht jemand "Bitte" ein Makro schreiben.
Es soll eine Art von Ampelsystem sein.

Es wird ein Wert von Tabelle 1 genommen
In Tabelle2 wo die Zahlen sind werden alle Spalten nur in Zeile 25 nach dem Wert durchsucht.

Wenn Wert gefunden Zeile 45 in der Spalte Grün einfärben
Wenn Wert um +1/-1 abweicht Zeile 45 in der Spalte Gelb einfärben
Wenn Wert um +2/-2 abweicht Zeile 45 in der Spalte Rot einfärben

Ungefähr so

Tabelle1 A1 Zahl 87

Tabelle2 Zahl 87 in Spalte 10 - Zeile 25 gefunden Grün

Tabelle2 Zahl 86/88 in Spalte 10 - Zeile 25 gefunden Gelb

Tabelle2 Zahl 85/89 in Spalte 10 - Zeile 25 gefunden Rot

Es ist so eine Art Lottosystem wäre toll wenn mir das jemand schreiben könnte

Answer 1

Hallo Bell,

(schöner Name. Bist du Disney-Fan? :-))

Dazu brauchst du kein Makro. Das geht ganz leicht mit einer
Formel-zum-Anwenden-einer-bedingten-Formatierung-in-Excel-
2016-f%C3%BCr-Mac-34093090-235b-4476-a7ce-
1da7880c750f">Bedingten Formatierung. Markiere dazu in
Tabelle2 Zelle A45 und füge eine neue Regel hinzu in der du
folgende Formel eingibst: =A$25=Tabelle1!$A$1 Dann wählst du als
Format eine grüne Hintergrundfarbe aus und drückst OK.
Erstelle nun eine zweite Regel. Diesmal gibst du als Formel
=ODER($A$25=Tabelle1!$A$1-1;$A$25=Tabelle1!$A$1+1) ein und
wählst gelb als Hintergrundfarbe aus. Dann wieder OK.
In der dritten Regel machst du das dann genauso:
=ODER($A$25=Tabelle1!$A$1-2;$A$25=Tabelle1!$A$1+2) und rot
wählen.
wenn du deine Eingabe beendet hast und wieder dein
Tabellenraster siehst, klickst du oben auf das Pinselsymbol und
markierst alle anderen gewünschten Zellen der Zeile 45.

Jetzt solltest du das gewünschte Ergebnis erreicht haben.

Gruß Mr. K.

Answer 2

Achso, die genannte Formeln gehen ab Excel Version 2010 (vielleicht
auch bei 2007?) bei einer älteren Excel-Version müsstest du die
Formeln stattdessen im Namensmanager anlegen und in der
Bedingten Formatierung dann =Name eingeben.

Mr. K.

Answer 3

Das DollarZeichen vor $A$25 muss noch weg. Also so A$25

Answer 4

Hi xlKing

Bin kein Disney Fan der Name ist mir so eingefallen :-))

Danke für den Tip mit der Bedingten Formatierung werde es ausprobieren.
Wäre es den viel Aufwand wenn du mir ein Makro schreibst ?
Wäre echt nett wenn das ginge
ansonsten mach ich das über die Bedingte Formatierung. wie von dir
Vorgeschlagen

Trotzdem danke

lg
Bell_2019c

Answer 5

Hallo Bell,

man sollte Makros nur dann verwenden, wenn es keine Excel-
Eigene Lösung gibt. Um deinem Wunsch zu entsprechen hier
ausnahmsweise der Code, der in das Modul "Tabelle1" gehört:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
With Sheets("tabelle2")
For Each c In .Range("A25", .Cells(25, .UsedRange.Column + .UsedRange.Columns.Count - 1))
If c.Value = Sheets("tabelle1").Range("A1").Value Then
c.Offset(20, 0).Interior.Color = 65280
ElseIf c.Value = Sheets("tabelle1").Range("A1").Value - 1 _
Or c.Value = Sheets("tabelle1").Range("A1").Value + 1 Then
c.Offset(20, 0).Interior.Color = 65535
ElseIf c.Value = Sheets("tabelle1").Range("A1").Value - 2 _
Or c.Value = Sheets("tabelle1").Range("A1").Value + 2 Then
c.Offset(20, 0).Interior.Color = 255
Else
c.Offset(20, 0).Interior.ColorIndex = xlNone
End If
Next c
End With
End Sub

Answer 6

Ach menno. Der Browser hat wieder einen Zeilenumbruch gemacht, wo
gar keiner sein sollte. Das .Usedrange muss natürlich hinter das
+-Zeichen.

Answer 7

Hi xlKing

Ich werde deinen Vorschlag berücksichtigen und bedanke mich
das du das Makro geschrieben hast.
Vielen Dank für dein Bemühen und Freundlichkeit.

Lg
Bell_2019c