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, 8367 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Microsoft Office
Pivot Tabelle schützen ohne Datenabschnitt (1)

Frage von lupi1989 zum Thema Microsoft Office ...

Datenbanken
Spalte in einer SQL-Tabelle auslesen. Werte durch Tab getrennt! (4)

Frage von Janekr77 zum Thema Datenbanken ...

Batch & Shell
gelöst Powershell Mauszeiger ausblenden (11)

Frage von Marabunta zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...