Pivot Office 2003/2007

Schönen Tag allerseits
folgendes Codeschnipsel funktioniert in Excel 2003 tadellos:
Cells.Find(What:=StL, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Delete
wobei StL ein zusammengesetzter String ist. Das Suchen erfolgt in einer Pivottabelle. Ich suche eine Überschriftenzeile!
Nochwas Kurioses:
wenn der VBA-Code geschützt ist, kommt der Fehlercode 1004 - Sie können diese Markierung nicht ausblenden -
Mit dem "Beenden" Knopf läuft das Makro richtig weiter.
ist der VBA-Code ungeschützt, passiert folgendes:
Excel 2007 motzt mit Fehlercode 91(Objektvariable fehlt)?
bei beenden läuft der Code nicht mehr richtig weiter.
Ich bin am Ende, weiß mir keinen Rat mehr.
Weiß jemand Abhilfe?
Schönen Tag noch
Petra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Petra,
Excel mag es garnicht, wenn man versucht Zellen oder deren Inhalte innerhalb des Datenbereiches eines Pivot-Tabellenbereichs zulöschen. Im Handbetrieb kommmt dann auch immer sofort die von dir beschrieben Meldung oder eine andere, je nach dem in welchem Bereich der Pivot-Tabelle man sich befindet.
Die Meldung unter Excel 2007 wird angezeigt, wenn der Begriff in der Variablen StL im Blatt nicht gefunden wird. Dann gibt Find keine Zelle zurückt und der Delete-Befehl geht ins Leere.
Hier mal eine Code-Anpassung, die zumindest den kontrollierten Ausstieg aus den Prozeduren ermöglicht, ohne das die VBA-Prozdur "gewaltsam" beendet werden muss.
Gruß
Franz

Sub aatest()
On Error GoTo Fehler
Dim StL
StL = InputBox("Suchwert", "Suche in Pivot", "Q3") 'Testzeile
Cells.Find(What:=StL, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Delete
Fehler:
With Err
Select Case .Number
Case 0 'kein Fehler aufgetreten
Case 91
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Suchwert """ & StL _
& """ wurde nicht gefunden oder ist bereits ausgeblendet!" & vbLf _
& "Oder der gefundene Pivotbereich kann nicht gelöscht werden."
Case 1004
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Suchwert """ & StL _
& """ wurde im Datenbereich gefunden, hier ist Löschen/Ausblenden nicht möglich!"
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot Office 2003/2007

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread