Datenschnitt mit dem Inhalt einer Zelle auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerhard,

starte den Makrorekorder und setzt ein Monat auf dem Slicer. Der Code sieht so aus (von mir leicht nachgearbeitet):

Sub Makro1()

    ActiveWorkbook.SlicerCaches("Datenschnitt_Monat2").VisibleSlicerItemsList = Array("[Tabelle1].[Monat2].&[Juni]")

End Sub

Nun brauchst Du in Tabelle2 ein Ereignis-Prozedure, die die Änderung in A1 wahrnimmt
_ auf dem Reiter von "Tabelle2" rechtsklicken
_ "Code anzeigen" anklicken
_ im VB-Editor auf dem Dropdown über den Codefenster links, da wo "(Allgemein)" steht, "Worksheet" auswählen,
_ auf dem Dropdown rechts, wo jetzt "SelectionChange" steht, "Change" aussuchen,
_ im Code unten den "Worksheet_SelectionChange" wieder löschen (von "Private Sub" bis "End Sub")
_ "Worksheet_Change" jetzt so ergänzen:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Target.Address = "$A$1" Then

        ThisWorkbook.SlicerCaches("Datenschnitt_Monat2").VisibleSlicerItemsList = Array("[Tabelle1].[Monat2].&[" & Target.Value & "]")

    End If

End Sub

Achte darauf, dass der übergegebene Wert case sensitiv ist. "Mai" geht, "mai" geht nicht. Idealerweise setzst Du auf diese Zelle A1 einen Datenüberprüfung (Menü "Daten", "Datenüberprüfung", "Liste" in der Liste
Januar;Februar;März;April;Mai;Juni;Juli;August;September;Oktober;November;Dezember
reinbringen.

VG
Yal

Vielen Vielen Dank,

genau das hatte ich gesucht (vorausgegangen ist ein Modul, das aus einer Pivot aus allen Datenschnitten die Auswahl in einer Mappe in Zellen schreibt)

falls das jemand sucht

und Dein Code komplementiert jetzt meine Datei

Gruesse Gerhard

'################### Anfang
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

Dim sUeberschrift As String
Dim x As Object, y As Object

For Each x In ActiveWorkbook.SlicerCaches

For Each y In x.SlicerItems

If y.Selected = True Then
zaehler = zaehler + 1
If zaehler = 1 Then
sUeberschrift1 = y.Name
End If
If zaehler = 2 Then
sUeberschrift2 = y.Name
End If
If zaehler = 3 Then
sUeberschrift3 = y.Name
End If
If zaehler = 4 Then
sUeberschrift4 = y.Name
End If
If zaehler = 5 Then
sUeberschrift5 = y.Name
End If

Exit For

End If
Next

Next

Worksheets("Markt_Geb_Region").Range("b1") = sUeberschrift1
Worksheets("Markt_Geb_Region").Range("b2") = sUeberschrift2
Worksheets("Markt_Geb_Region").Range("b3") = sUeberschrift3
Worksheets("Markt_Geb_Region").Range("b4") = sUeberschrift4
Worksheets("Markt_Geb_Region").Range("b5") = sUeberschrift5

'Worksheets("Dashboard").Range("G2").ShrinkToFit = True
End Sub
'########### Ende

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim sUeberschrift(1 To 5) As String Dim x As Object Dim y As Object Dim i As Integer For Each x In ActiveWorkbook.SlicerCaches For Each y In x.SlicerItems If y.Selected = True Then i = i + 1 If i >= 1 And i = 5 Then sUeberschrift(i) = y.Name Exit For End If Next Next For i = 1 To 5 Worksheets("Markt_Geb_Region").Cells(i, "B").Value = sUeberschrift(i) Next 'Worksheets("Dashboard").Range("G2").ShrinkToFit = True End Sub

Beliebteste Forumthreads (12 Monate)

Datenschnitt mit dem Inhalt einer Zelle auswählen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenschnitt mit dem Inhalt einer Zelle auswählen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread