VBA - auf anderes Tabellenblatt beziehen
23.11.2004 17:42:01
Andy1980
Ich habe eine Ampel mit Hilfe aus diesem Forum gebstalt und würde nun gerne ein Rechteck (auf dem die Farben angezeigt werden), das sich in Tabelle 2 befindet, auf Werte beziehen die sich in Tabelle 1 befinden.
Der VBA Code sieht folgendermaßen aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Address = "D$2" Or Target.Address = "$E$2" Then
Select Case Target.Value
Case 0 To 200
ActiveSheet.Shapes("Rechteck 3").Fill.ForeColor.SchemeColor = 10
Case 201 To 700
ActiveSheet.Shapes("Rechteck 3").Fill.ForeColor.SchemeColor = 13
Case Is > 700
ActiveSheet.Shapes("Rechteck 3").Fill.ForeColor.SchemeColor = 11
End Select
End If
End Sub
Die Felder D2, und E2 befinden sich in Tabelle1. Rechteck3 in Tabelle2. Wie kann ich den Bezug zu Tabelle1 hier einbauen? Muss ich Tabelle1 noch zusätzlich bei "Address" angenen? Wie?
Wäre schön wenn mir wer helfen könnte!
Liebe Grüße
Andy
PS: Was sagen folgende Zeilen eigentlich genau aus?
If Target.Count 1 Then Exit Sub
If Target.Address = "D$2" Or Target.Address = "$E$2" Then
Select Case Target.Value