Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Werte in einer Pivot Tabelle ein- bzw. ausblenden

Frage Entwicklung

Mitglied: wydy

wydy (Level 1) - Jetzt verbinden

11.08.2009, aktualisiert 13:38 Uhr, 8540 Aufrufe, 1 Kommentar

Nur bestimmte Daten in einer Pivot Tabelle anzeigen lassen

Moin Leute,
ich habe eine Pivot Tabelle erstellt. Mit einem Button im ersten Formular kann ich die Tabelle aktualisieren und möchte ebenfalls einen Datumsbereich angeben, der angezeigt werden soll. Der Benutzer gibt ein Start und ein Enddatum ein und nur diese Daten werden dann in der Pivot Tabelle angezeigt. Jetzt habe ich jedoch das Problem, ich weiss nicht wie ich die passende Schleife dafür definieren kann? Ich habe es mit einer For each Schleife versucht, aber das funktionierte nicht.

Hier mal mein Quellcode
01.
Private Sub buttonBerechnen_Click() 
02.
    Dim Startdatum As Date 
03.
    Dim Enddatum As Date 
04.
     
05.
    'Start und Enddatum auslesen 
06.
    Startdatum = Cells(5, 2).Value 
07.
    Enddatum = Cells(7, 2).Value     
08.
     
09.
    Sheets("Daten").Select 
10.
    ActiveSheet.PivotTables("Daten").PivotCache.Refresh 
11.
     
12.
    'Nur eingegebene Werte anzeigen 
13.
    For Each PivotTables("Daten").PivotFields("Datum") In ActiveSheet 
14.
        If Startdatum<ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems AND Enddatum>ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems then 
15.
               ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems.Visible = True 
16.
        Else 
17.
               ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems.Visible = False 
18.
        End if 
19.
    Next PivotTables("Daten").PivotFields("Datum") 
20.
End Sub
Das Problem ist vorallem. Ich weiss nicht, wie ich die Werte aus der Pivot Tabelle lesen kann.
Mitglied: wydy
11.08.2009 um 15:23 Uhr
Moin, ich konnte das Problem jetzt selbst lösen nach langem hin und her
01.
Private Sub buttonBerechnen_Click() 
02.
    Dim Startdatum As Date 
03.
    Dim Enddatum As Date 
04.
    Dim Datum As Date 
05.
     
06.
    'Start und Enddatum auslesen 
07.
    Startdatum = Cells(5, 2).Value 
08.
    Enddatum = Cells(7, 2).Value 
09.
     
10.
     
11.
    Sheets("Daten").Select 
12.
    ActiveSheet.PivotTables("Daten").PivotCache.Refresh 
13.
     
14.
    For Each Datum In ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems 
15.
        'Nur gewünschte Daten anzeigen 
16.
        If Startdatum <= Datum And Datum <= Enddatum Then 
17.
            ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems("" & Datum & "").Visible = True 
18.
        Else 
19.
            ActiveSheet.PivotTables("Daten").PivotFields("Datum").PivotItems("" & Datum & "").Visible = False 
20.
        End If 
21.
    Next Datum
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Pivot Tabelle schützen ohne Datenabschnitt (1)

Frage von lupi1989 zum Thema Microsoft Office ...

Datenbanken
gelöst Hilfe bei MSSQL-Anweisung, Werte in andere Tabelle einfügen (8)

Frage von d4shoerncheN zum Thema Datenbanken ...

Microsoft Office
gelöst Excel Tabelle nach Spalte sortieren und Daten auf Tabellenblätter separieren (4)

Frage von Fastinator zum Thema Microsoft Office ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (25)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (22)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...