Hintergrundfarbe ändern wenn ein anderes Feld den Fokus erhält

25/01/2008 - 13:26 von BPO | Report spam
Guten Tag allerseits.
ich verwende Excel 2003, SP2

Mir stellt sich folgendes Problem:
- Spalte A: die Felder A3:A235 sind als "Datum" formatiert;
- Spalten B-D: die Felder B3:D235 werden mit variablen Zahlen 1-20 gefüllt;
- Spalte S-W: die Felder S3:W6 sind mit konstanten Zahlen 1-20 gefüllt, z.B
Feld U4 = 8

Ich möchte nun, dass wenn ich auf z.B. das Feld A17 klicke, (das Feld somit
den Fokus erhàlt), sich die Hintergrundfarben der Felder S3:W6 sich
entsprechend der Eingaben aus den Feldern B3:235, in ROT darstellen.

Beispiel:
Eingaben Ändern der
Hintergrundfarbe ROT
A17 B17 B18 B19 U4 S5 V6
30.10.2008 8 11 19 8 11 19

Besten Dank im Voraus für Hilfe.
Piero
 

Lesen sie die antworten

#1 Peter Schleif
25/01/2008 - 15:01 | Warnen spam

Eingaben Ändern der
Hintergrundfarbe ROT
A17 B17 B18 B19 U4 S5 V6
30.10.2008 8 11 19 8 11 19



Vielleicht magst Du beim nàchsten Mal ja eine Nicht-proportionale
Schrift wàhlen.

Eingaben Ändern der Hintergrundfarbe ROT
A17 B17 B18 B19 U4 S5 V6
30.10.2008 8 11 19 8 11 19


Meinst Du wirklich B17,B18,B19 oder nicht eher B17,C17,D17 ?

Ich bin in folgender Tabelle und dem dazu passenden Code mal von
letzterem ausgegangen. Falls Du tatsàchlich die drei Zellen in Spalte
B senkrecht meinst, muss der Code leicht angepasst werden.

Peter


+-+--+-+-+-+-+-+-+-+-+-+
| | | | | | | | | | | |
| | A | B | C | D | .. | S | T | U | V | W |
| | | | | | | | | | | |
+-+--+-+-+-+-+-+-+-+-+-+
| 3 | 25.01. | 10 | 18 | 7 | | 9 | 12 | 12 | 17 | 5 |
+-+--+-+-+-+-+-+-+-+-+-+
| 4 | 26.01. | 12 | 1 | 11 | | 18 | 13 | 8 | 7 | 20 |
+-+--+-+-+-+-+-+-+-+-+-+
| 5 | 27.01. | 19 | 16 | 12 | | 11 | 9 | 1 | 16 | 1 |
+-+--+-+-+-+-+-+-+-+-+-+
| 6 | 28.01. | 10 | 1 | 17 | | 16 | 14 | 16 | 19 | 6 |
+-+--+-+-+-+-+-+-+-+-+-+
| .. | | | | | | | | | | |
+-+--+-+-+-+-+-+-+-+-+-+
| 17 | 30.10. | 8 | 11 | 19 | | | | | | |
+-+--+-+-+-+-+-+-+-+-+-+
| 18 | 31.10. | 6 | 5 | 9 | | | | | | |
+-+--+-+-+-+-+-+-+-+-+-+
| 19 | 01.11. | 2 | 17 | 13 | | | | | | |
+-+--+-+-+-+-+-+-+-+-+-+


Private Sub Worksheet_SelectionChange(ByVal target As Range)

If target.Column <> 1 Or target.Row < 3 Then
Exit Sub
End If

zeile = target.Row

Range("S3:W6").Interior.ColorIndex = xlNone

For spalte = 2 To 4
For z = 3 To 6
For s = 19 To 23
If Cells(z, s) = Cells(zeile, spalte) Then
Cells(z, s).Interior.ColorIndex = 3
End If
Next
Next
Next

End Sub

Ähnliche fragen