title image


Smiley Re: Diagrammdaten per VBA (Pivottabelle)
hiho









Sub PivotCompany_updt()

On Error GoTo ErrMesage

Sheets("PivotCompany").Range("B2").Value = Sheets("Zellverknüpfung").Range("B27").Value

Sheets("PivotCompany").PivotTables("PivotTable2").RefreshTable

Exit Sub

ErrMesage:

MsgBox "Doc da ist ein Fehler:" & Err.Number & " Art: " & Err.Description, vbCritical

Err.Clear

End Sub













oder soll was anderes gemacht werden
Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: