Thema Datum  Von Nutzer Rating
Antwort
Rot DRINGEND: Filter funktionieren nicht mehr
 05.05.2014 16:33:44 Corina
NotSolved
05.05.2014 17:31:24 Corina
NotSolved
05.05.2014 20:22:15 Gast74950
NotSolved
05.05.2014 21:01:46 Corina
NotSolved
05.05.2014 23:01:14 Gast39624
*****
Solved
06.05.2014 06:29:37 Gast25097
NotSolved
05.05.2014 23:28:38 Gast40018
NotSolved
06.05.2014 08:34:28 Corina
NotSolved
06.05.2014 09:50:09 Corina
NotSolved

Ansicht des Beitrags:
Von:
Corina		 Datum:
05.05.2014 16:33:44		 Views:
1250		 Rating:
     
Antwort:
  Ja
Thema:
DRINGEND: Filter funktionieren nicht mehr

Hallo allerseits,

habe ein super dringendes Problem, das ganz plötzlich aufgetaucht ist. Verstehe auch nicht warum, habe das umfassend getestet und es hat die ganze Zeit funktioniert. Egal... Nun zum eigentl. Problem: Ich verwende den Text verschiedener Shapes als Filter, d.h. wenn ein Shape angeklickt wird, ändert es die Farbe und setzt ein Filter.

Das Ganze sollte untereinander auch beliebig kombinierbar sein (also additiv) und hat bis eben gerade auch so funktioniert. Und ausgerechnet jetzt beim Vorführen wird immer nur der Filter des zuletzt angeklickten Shapes angezeigt. Oh man, bin echt verzweifelt :( Schon mal vielen Dank für eure Hilfe!

Viele Grüße

Corina

Sub RoundedRectangleSubcategory_Click()
'On click filter listed subcategories in "Risk Category Checklist" by the text in the rounded rectangles

Dim ws As Excel.Worksheet
Dim shp As Shape

Set ws = Worksheets("Risk Category Checklist")
Set shp = ActiveSheet.Shapes(Application.Caller)

ToggleShapeColor
 
Application.ScreenUpdating = False
  
With shp
    If shp.Fill.ForeColor = RGB(255, 255, 153) Then
    ws.Range("$A$5:$W$500").AutoFilter , Field:=7, Criteria1:=myText
    Else
    ws.Range("$A$5:$W$500").AutoFilter , Field:=7
    End If
End With

 

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot DRINGEND: Filter funktionieren nicht mehr
 05.05.2014 16:33:44 Corina
NotSolved
05.05.2014 17:31:24 Corina
NotSolved
05.05.2014 20:22:15 Gast74950
NotSolved
05.05.2014 21:01:46 Corina
NotSolved
05.05.2014 23:01:14 Gast39624
*****
Solved
06.05.2014 06:29:37 Gast25097
NotSolved
05.05.2014 23:28:38 Gast40018
NotSolved
06.05.2014 08:34:28 Corina
NotSolved
06.05.2014 09:50:09 Corina
NotSolved