Thema Datum  Von Nutzer Rating
Antwort
Rot Filter setzen anhand ausgelesenem Text
 07.04.2014 16:16:15 Corina
NotSolved
07.04.2014 19:58:01 Gast57624
*****
Solved
07.04.2014 20:00:59 Gast37267
NotSolved
07.04.2014 20:50:07 Gast91651
NotSolved
08.04.2014 03:01:21 Gast50430
NotSolved

Ansicht des Beitrags:
Von:
Corina		 Datum:
07.04.2014 16:16:15		 Views:
1309		 Rating:
     
Antwort:
  Ja
Thema:
Filter setzen anhand ausgelesenem Text

Hallo allerseits!

Suche mal wieder verzweifelt nach Hilfe und hoffe, dass ihr mir bei folgender Angelegenheit helfen könnt. Habe in einem Excelsheet mehrere Formen, denen ich per Formel einen Text zugewiesen habe. Nun möchte ich gerne, dass beim Anklicken der jeweiligen Form Filter gesetzt werden (in einem anderen Excelsheet), die als Filterkriterium den Text der Form verwenden. Hoffentlich ist das einigermaßen verständlich. Schon mal vielen Dank für die Hilfe!

Viele Grüße,

Corina

P.S.: Habe mit meinen nicht vorhandenen VBA-Kenntnissen versucht das Problem zu lösen, bekomme aber nur Fehlermeldungen. Das Ganze sieht wie folgt aus:

Option Explicit
Sub Shape_Click()
Application.ScreenUpdating = False

Dim Shp As Shape

Set Shp = ThisWorkbook.ActiveSheet.Shapes.Range(Array("Name1", "Name2", "Name3"))

    With Shp
    
        If Worksheets("Sheet3").FilterMode Then
            Worksheets("Sheet3").Range("A:T").AutoFilter , Field:=4
        Else
            Worksheets("Sheet3").Range("A:T").AutoFilter , Field:=4, Criteria1:="=" & Shp.Text
        End If
    End With

Application.ScreenUpdating = True

End Sub

 

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 Filter setzen anhand ausgelesenem Text
 07.04.2014 16:16:15 Corina
NotSolved
07.04.2014 19:58:01 Gast57624
*****
Solved
07.04.2014 20:00:59 Gast37267
NotSolved
07.04.2014 20:50:07 Gast91651
NotSolved
08.04.2014 03:01:21 Gast50430
NotSolved