Office: (Office 2007) Wert von ausgewählter Zelle in Pivot-Tabelle per VBA auslesen

\@ Guido
vlt. ist das für dich brauchbar:
http://microsoft.public.de.access.na...pivot-tabellen
auch das hier könnte hilfreich sein:
http://support.microsoft.com/kb/235542/de

 

Klasse!
Vielen Dank Ralf!
Damit kann ich jetzt mal arbeiten.

 

gern geschehen...

@Marsu: Interessante Lektüre; danke für die Links. Werde ich mir auch mal zu Gemüte führen

 

Hallo,

habe mich heute intensiv in der Microsoft Visual Basic Hilfe zum Thema Pivot-Tabelle umgeschaut. Bei der Cell-Eigenschaft gibt es ein Beispiel, dass den erforderlichen Code beinhaltet. Hier in kommentierter Fassung.

' Die Pivot-Tabelle muss eine Pivot-Tabellen Ansicht in
' einem Formular sein. Der Code wird dann einfach dem Doppelklick
' Ereignis des Formulars zugewiesen.
Private Sub Form_DblClick(Cancel As Integer)

Dim ptSelection
Dim nRow
Dim rs

' Falls auf eine Pivot-Tabelle zurückgegriffen werden soll,
' die in einem Unterformular angezeigt wird, muss dann
' der folgende Verweis entsprechend auf Me.[Unterformular].Form.PivotTable
' geändert werden.
Set pt = Me.PivotTable

Set ptSelection = pt.Selection

' If the current selection is in the
' detail area of the PivotTable list.
' Aktion nur bei Doppelklick auf einen geöffneten
' Detailbereich ausführen.
If TypeName(ptSelection) = "PivotDetailRange" Then

nRow = ptSelection.TopLeft.Row

' Set a variable to the recordset of the top-left
' cell in the selection.
Set rs = ptSelection.TopLeft.Cell.Recordset

' Move the cursor the the correct record in the recordset.
rs.Move nRow

' Über das Recordset rs kann nun auf alle Daten zugegriffen werden
' z.B. auch auf die ID des Datensatzes, sofern die verfügbar ist
MsgBox "Der Wert gehört zum Datensatz " & String(2, vbCrLf) & _
"mit Record_Id = " & rs("Record_ID")
' Else
' MsgBox "Double-click on a row!", vbExclamation
End If

End Sub
*Sun