VBA finding a cell based on the value of a pivot table

[paeddi]

Hi together,

I would like to jump (eventually with VBA) from a cell in a pivot table to find the cell with that value in the original table.
I imagine that the current value has to be copied to the clipboard and that the value has to be searched (CTRL+F) in the source table.

How does the solution looks likes?

Thanks in advance for your response.

Patrick

 

[paeddi]

Thank you, I'm using German version of Professional plus 2016 Version 1907

I get the message: address = 'Mastertabelle Einzel'!S2:S67

Kind regards to Mexiko (btw, my wife is mexican)

 

[DanteAmor]

What is the range of cells in sheet " Mastertabelle Einzel" where you have your data?

Saludos a la paisana de México!

 

[DanteAmor]

Forget the above, try the following:
Select a data in the pivot table and run the macro.

Sub finding_cell()
    Dim f As Range, wItem As String
    wItem = ActiveCell.Value
    If wItem = "" Then Exit Sub
    Sheets("Mastertabelle Einzel").Select
    Set f = Cells.Find(wItem, , xlValues, xlWhole)
    If Not f Is Nothing Then
      f.Select
    End If
End Sub

 

[paeddi]

Cool, works as required, thank you so much!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.