Thema Datum  Von Nutzer Rating
Antwort
07.04.2014 16:16:15 Corina
NotSolved
Blau Filter setzen anhand ausgelesenem Text
 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:
Gast57624		 Datum:
07.04.2014 19:58:01		 Views:
1059		 Rating:
     
Antwort:
 Nein
Thema:
Filter setzen anhand ausgelesenem Text

Hier mal ein allgemeines Beispiel (Code kommt in ein Modul):

Option Explicit

'Makro welches einem Shape zugewiesen werden kann
Public Sub Shape_OnAction()
  
  Dim strShapeName As String
  Dim strShapeText As String
  
  Select Case TypeName(Application.Caller)
    Case "String"
      strShapeName = Application.Caller
    Case Else
      Exit Sub
  End Select
  
  'prüfen ob der ShapeName wirklich vorhanden ist
  ' man vermeidet so einen Laufzeitfehler bei >Shapes(strShapeName)<
  If ShapeExists(strShapeName, ActiveSheet) Then
    
    With ActiveSheet.Shapes(strShapeName)
      strShapeText = .TextFrame2.TextRange.Text
    End With
    
    Call MsgBox("Shape = '" & strShapeName & "'" & vbNewLine & _
                "Text = '" & strShapeText & "'")
  Else
    Call MsgBox("Shape '" & strShapeName & "' wurde im aktiven Blatt nicht gefunden.", _
                vbExclamation)
  End If
  
Exit Sub
ErrHandler:
  Call MsgBox("Fehler: " & Err.Number & vbNewLine & vbNewLine & _
              "Beschreibung: " & vbNewLine & _
              Err.Description, _
            Buttons:=vbCritical, _
            Title:="Shape_OnClick")
End Sub

Public Function ShapeExists(Name As String, Optional Sheet As Object) As Boolean
  On Error Resume Next
  If Sheet Is Nothing Then
    ShapeExists = (ActiveSheet.Shapes(Name).Name <> "")
  Else
    ShapeExists = (Sheet.Shapes(Name).Name <> "")
  End If
End Function

Application.Caller wird hier verwendet um die Quelle des Aufrufs dieser Prozedur zu ermitteln (hier gibt es diverse Einschränkungen, s. VBA-Hilfe).

 

Schau mal ob du nun den Teil mit dem Filtern nun hinbekommst. :)

 

Gruß

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
07.04.2014 16:16:15 Corina
NotSolved
Blau Filter setzen anhand ausgelesenem Text
 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