Thema Datum  Von Nutzer Rating
Antwort
Rot Code Anwendungs- oder objektdefinierter Fehler
 19.02.2010 13:17:49 Nicky
NotSolved

Ansicht des Beitrags:
Von:
Nicky		 Datum:
19.02.2010 13:17:49		 Views:
1446		 Rating:
     
Antwort:
  Ja
Thema:
Code Anwendungs- oder objektdefinierter Fehler
Hallo Leute,
bin neu im VBA schreiben, deswegen bräuchte ich Hilfe. Und zwar besteht das Problem, dass ich eine PivotTabelle User gerecht machen soll. Und zwar hab ich neben dem Pivot Sheet noch ein extra Tabellenblatt in dem ich eine CheckBox hab. Wenn diese CheckBox angeklickt wird soll die entsprechende Zeile in der Feldliste bei Werte ausgeblendet werden. Wird die CheckBox deaktiviert soll die Zeile wieder an gleicher Stelle mit gleichen Formatierungen eingeblendet werden.

Könnte mir jemand helfen?

' Check Box 1

If Sheets("Configuration Sheet").CheckBox1.Value = True Then

With ActiveSheet.PivotTables("NameTabelle").PivotFields("NamePivotFeld ")
.Orientation = xlHidden
.Position = 0
End With
Else
ActiveSheet.PivotTables("NameTabelle").PivotFields( _
"NamePivotFeld").Orientation = xlHidden = False

With ActiveSheet.PivotTables("NameTabelle").PivotFields( _
"NamePivotFeld ")
.Orientation = xlRowField
.Position = 1
End With

ActiveSheet.PivotTables("NameTabelle").AddDataField ActiveSheet.PivotTables _
("NameTabelle").PivotFields("NamePivotFeld "), _
"AutomatischeÄnderungNamePivotFeld", xlCount

With ActiveSheet.PivotTables("NameTabelle").PivotFields( _
"AutomatischeÄnderungNamePivotFeld")
.Caption = "GewünschterNamePivotFeld"
.Function = xlSum
.NumberFormat = "#.##0"
End With

End If

LG Nicky

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 Code Anwendungs- oder objektdefinierter Fehler
 19.02.2010 13:17:49 Nicky
NotSolved