Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Chart durchsuchen
 06.09.2011 08:38:58 Mike
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
06.09.2011 08:38:58		 Views:
1633		 Rating:
     
Antwort:
  Ja
Thema:
Pivot Chart durchsuchen
Hallo Zusammen Gibt es eine möglichkeit diesen Code, für eine Pivot Tabelle anzuwenden? Code Pivot: ActiveSheet.PivotTables("PivotTable10").PivotFields("Organisation"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable10").PivotFields("Organisation"). _ CurrentPage = InputBox("Bitte tätigen Sie eine Eingabe", "Eingabefeld", "Bitte tätigen Sie eine eingabe", 1, 1) Suchcode Excel: Option Explicit Global SSearch As String Public Sub SearchAllTables() Dim ws As Worksheet Dim c Dim firstAddress As String Dim secAddress Dim GFound As Boolean Dim GWeiter As Boolean GWeiter = False GFound = False anf: SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch) If SSearch = "" Then End End If weiter: For Each ws In Worksheets 'ws.Select With ws.Cells Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False) If Not c Is Nothing Then GFound = True ws.Select c.Select firstAddress = c.Address If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then Do Set c = .FindNext(c) secAddress = c.Address If c.Address = firstAddress Then Exit Do End If c.Select If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then GWeiter = True GoTo ende End If Loop While Not c Is Nothing And secAddress <> firstAddress And c.Address <> firstAddress Else GWeiter = True GoTo ende End If End If End With Next ws ende: If GFound = False Then If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then GoTo anf: End If Else If GWeiter = False Then If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYes Then GoTo weiter End If End If End If 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 Pivot Chart durchsuchen
 06.09.2011 08:38:58 Mike
NotSolved