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, 8633 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 Access 2010 Pivot Table Export keine Werte (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Pivot - Funktion in Open Office Base (3)

Frage von CrazyCat-1 zum Thema Datenbanken ...

Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

Frage von sebastian2608 zum Thema Festplatten, SSD, Raid ...

Webentwicklung
Aktuellen Mitarbeiter auf Homepage anzeigen (13)

Frage von alemanne21 zum Thema Webentwicklung ...

Server-Hardware
HP ProLiant DL380 G7, POST Error: 1785-Drive Array not Configured (9)

Frage von Paderman zum Thema Server-Hardware ...

Microsoft Office
gelöst Office 365 Pro Domäne einrichten OHNE Webseite (9)

Frage von thklemm zum Thema Microsoft Office ...