Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.04.2014 10:08:38 |
Gast20804 |
|
|
Shape Farbe ändern und Filter setzen mit Anklicken des Shapes |
07.04.2014 20:07:50 |
Gast58795 |
|
|
|
08.04.2014 08:58:12 |
Gast92710 |
|
|
|
08.04.2014 09:27:50 |
Gast74206 |
|
|
|
08.04.2014 10:05:00 |
Gast91031 |
|
|
|
08.04.2014 10:20:29 |
Gast72403 |
|
|
|
08.04.2014 10:54:21 |
Gast42594 |
|
|
|
08.04.2014 13:37:47 |
Gast64574 |
|
|
|
08.04.2014 16:58:42 |
Gast93696 |
|
|
|
08.04.2014 14:24:51 |
Gast91072 |
|
|
|
08.04.2014 17:00:24 |
Gast45855 |
|
|
Von:
Gast58795 |
Datum:
07.04.2014 20:07:50 |
Views:
2284 |
Rating:
|
Antwort:
|
Thema:
Shape Farbe ändern und Filter setzen mit Anklicken des Shapes |
Guten Abend,
Private myText As String
Sub RoundedRectangle199_Click()
ToggleShapeColor
Application.ScreenUpdating = False
If Worksheets("Sheet3").FilterMode Then
Worksheets("Sheet3").Range("$A$5:$T$500").AutoFilter , Field:=4
Else
Worksheets("Sheet3").Range("$A$5:$T$500").AutoFilter , Field:=4, Criteria1:=myText
End If
End Sub
Private Sub ToggleShapeColor()
Dim Shp As Shape
Set Shp = ActiveSheet.Shapes(Application.Caller)
myText = Shp.TextFrame2.TextRange.Characters.Text 'vgl. Elemente des Shape-Objekts
'TextFrame für den den Textrahmen
'TextFrame2 enthält den Text im Textrahmen
With Shp
If .Fill.ForeColor = RGB(56, 93, 138) Then
.Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
.Fill.ForeColor.RGB = RGB(56, 93, 138)
End If
End With
End Sub
|
- 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
|
|
07.04.2014 10:08:38 |
Gast20804 |
|
|
Shape Farbe ändern und Filter setzen mit Anklicken des Shapes |
07.04.2014 20:07:50 |
Gast58795 |
|
|
|
08.04.2014 08:58:12 |
Gast92710 |
|
|
|
08.04.2014 09:27:50 |
Gast74206 |
|
|
|
08.04.2014 10:05:00 |
Gast91031 |
|
|
|
08.04.2014 10:20:29 |
Gast72403 |
|
|
|
08.04.2014 10:54:21 |
Gast42594 |
|
|
|
08.04.2014 13:37:47 |
Gast64574 |
|
|
|
08.04.2014 16:58:42 |
Gast93696 |
|
|
|
08.04.2014 14:24:51 |
Gast91072 |
|
|
|
08.04.2014 17:00:24 |
Gast45855 |
|
|