Thema Datum  Von Nutzer Rating
Antwort
07.02.2012 08:36:58 B1gT4nk
NotSolved
Blau select aus Code verbannen
 07.02.2012 08:38:41 Gast85850
NotSolved

Ansicht des Beitrags:
Von:
Gast85850		 Datum:
07.02.2012 08:38:41		 Views:
925		 Rating:
     
Antwort:
  Ja
Thema:
select aus Code verbannen

hier nochmal der code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub January()
'
' January Makro
'
 
'
    Sheets("chart data financial cockpit").Select
    If Range("C3") = 1 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4167"
        
    ElseIf Range("C3") = 2 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4449"
        
    ElseIf Range("C3") = 3 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4196"
        
    ElseIf Range("C3") = 4 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "5499"
    
    ElseIf Range("C3") = 5 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4414"
        
    Else
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
        
    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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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:58 B1gT4nk
NotSolved
Blau select aus Code verbannen
 07.02.2012 08:38:41 Gast85850
NotSolved