Thema Datum  Von Nutzer Rating
Antwort
07.02.2012 08:36:37 B1gT4nk
NotSolved
07.02.2012 09:29:34 Dekor
NotSolved
Rot select aus Code verbannen
 07.02.2012 18:18:41 Till
NotSolved
09.02.2012 04:40:13 Gast95874
NotSolved
09.02.2012 04:50:32 Gast69256
NotSolved
09.02.2012 20:07:04 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
07.02.2012 18:18:41		 Views:
921		 Rating:
     
Antwort:
  Ja
Thema:
select aus Code verbannen

Sollte eigentlich sogar noch ein bisschen kürzer gehen:

Sub January()
'
' January Makro
'
   'Sheets("chart data financial cockpit").Select
   'Sheets("Opportunity Overview").Select
 
    With Sheets("Opportunity Overview").PivotTables("PivotTable1")
    
        With .PivotFields("Month of EAD")
            .ClearAllFilters
            .CurrentPage = "1"
        End With
        With .PivotFields("BU")
            .ClearAllFilters
            Select Case .Range("C3")
            Case 1
                .CurrentPage = "4167"
            Case 2
                .CurrentPage = "4449"
            Case 3
                .CurrentPage = "4196"
            Case 4
                .CurrentPage = "5499"
            Case 5
                .CurrentPage = "4414"
            End Select
        End With
        
    End With
    
End Sub

 

Gruß

Till

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.02.2012 08:36:37 B1gT4nk
NotSolved
07.02.2012 09:29:34 Dekor
NotSolved
Rot select aus Code verbannen
 07.02.2012 18:18:41 Till
NotSolved
09.02.2012 04:40:13 Gast95874
NotSolved
09.02.2012 04:50:32 Gast69256
NotSolved
09.02.2012 20:07:04 Till
NotSolved