Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle löschen
25.09.2014 14:06:55 Yvonne
NotSolved
25.09.2014 20:27:59 Gast17616
NotSolved
29.09.2014 07:23:15 Gast69728
NotSolved

Ansicht des Beitrags:
Von:
Yvonne		 Datum:
25.09.2014 14:06:55		 Views:
3048		 Rating:
     
Antwort:
  Ja
Thema:
Pivot Tabelle löschen

Hallo,

ich habe bis jetzt den folgenden Code geschrieben der auch funktioniert. Mein Problem ist nun das wenn die Checkbox deaktiviert wird, soll die Pivot Tabelle wieder gelöscht werden. Hierzu fällt mir gerade so gar nichts ein. Vielleicht hat ja jemand eine schnelle Lösung für mich. 

Danke schon mal im Voraus. 

 

Private Sub CheckBox2_Click()

If Sheets("Auswahlbildschirm").CheckBox2.Value = True Then
            
Sheets("57005313").Select
        Set ptCache = ActiveWorkbook.PivotCaches.Add _
            (SourceType:=xlDatabase, _
             SourceData:="A1:V" & _
             ActiveSheet.UsedRange.Rows.Count)
            
                     
Sheets("Auswertung VE13-14").Select
        Set pttable = ptCache.CreatePivotTable(TableDestination:=ActiveSheet.Range("F2"), tablename:="VE14-M160")
                 
        With pttable
            .PivotFields("Auswahlcluster").Orientation = xlRowField
            .PivotFields("SAP Baugruppe").Orientation = xlRowField
            .PivotFields("Bezeichnung Baugruppe").Orientation = xlRowField
            .PivotFields("Bestandsänderung").Orientation = xlDataField
        End With
        Columns("A:N").AutoFit
                  
        Set ptCache = Nothing
        Set pttable = Nothing
              
Else
           'erzeugte Pivot Tabelle soll gelöscht werden'
                            
            
                       
End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle löschen
25.09.2014 14:06:55 Yvonne
NotSolved
25.09.2014 20:27:59 Gast17616
NotSolved
29.09.2014 07:23:15 Gast69728
NotSolved