Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.01.2017 18:42:55 |
Christine |
|
|
|
11.01.2017 19:24:58 |
Mackie |
|
|
|
11.01.2017 20:40:07 |
Christine |
|
|
|
11.01.2017 22:09:50 |
Mackie |
|
|
|
11.01.2017 22:12:11 |
Gast643 |
|
|
|
11.01.2017 22:28:16 |
Mackie |
|
|
Bezug auf anderes Tabellenblatt |
11.01.2017 23:41:17 |
Mackie |
|
|
|
12.01.2017 19:28:36 |
Gast14614 |
|
|
|
12.01.2017 20:30:54 |
Mackie |
|
|
Von:
Mackie |
Datum:
11.01.2017 23:41:17 |
Views:
648 |
Rating:
|
Antwort:
|
Thema:
Bezug auf anderes Tabellenblatt |
Jetzt weiss ich, was du meinst:
Das in Tabelle2 einbauen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim K As Shape
If Target.Address(0, 0) = "A1" Then
Set K = Tabelle1.Shapes("01")
K.Fill.Visible = msoTrue
K.Line.Visible = msoFalse
If [A1] <= 10 And [A1] >= 0 Then
K.Fill.ForeColor.SchemeColor = 10
ElseIf [A1] <= 20 And [A1] > 10 Then
K.Fill.ForeColor.SchemeColor = 12
Else
K.Fill.ForeColor.SchemeColor = 1
End If
End If
End Sub
Sobald auf Tabelle2 A1 sich ändert, wird auf Tabelle1 die Farbe des Shapes passend geändert.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.01.2017 18:42:55 |
Christine |
|
|
|
11.01.2017 19:24:58 |
Mackie |
|
|
|
11.01.2017 20:40:07 |
Christine |
|
|
|
11.01.2017 22:09:50 |
Mackie |
|
|
|
11.01.2017 22:12:11 |
Gast643 |
|
|
|
11.01.2017 22:28:16 |
Mackie |
|
|
Bezug auf anderes Tabellenblatt |
11.01.2017 23:41:17 |
Mackie |
|
|
|
12.01.2017 19:28:36 |
Gast14614 |
|
|
|
12.01.2017 20:30:54 |
Mackie |
|
|