Makro in Pivot Tabelle

29/07/2008 - 11:40 von Michael Feske | Report spam
Hallo alle zusammen,
ich möchte dieses Makro in einer PivotTabelle ausführen.

Sub ErsetzeleerdurchnullSigma()
Dim c As Range
For Each c In ActiveSheet.UsedRange
With c
Select Case .Column
Case 2 To 100 ' Alle Spalten wo leer durch null ersetzt
werden soll
If .Value = "" Then .Value = 0
End Select
End With
Next c
End Sub

Es wird in den ersten drei Zeilen ausgeführt, dann erhalte ich die
Fehlermeldung 400.

Es soll aber erst ab B6 ausgeführt werden immer so weit die Pivottabelle
reicht.

Was muß ich tun ?

Gruß
Micha
 

Lesen sie die antworten

#1 Claus Busch
29/07/2008 - 13:49 | Warnen spam
Hallo Michael,

Am Tue, 29 Jul 2008 02:40:13 -0700 schrieb Michael Feske:

ich möchte dieses Makro in einer PivotTabelle ausführen.

Sub ErsetzeleerdurchnullSigma()
Dim c As Range
For Each c In ActiveSheet.UsedRange
With c
Select Case .Column
Case 2 To 100 ' Alle Spalten wo leer durch null ersetzt
werden soll
If .Value = "" Then .Value = 0
End Select
End With
Next c
End Sub

Es wird in den ersten drei Zeilen ausgeführt, dann erhalte ich die
Fehlermeldung 400.

Es soll aber erst ab B6 ausgeführt werden immer so weit die Pivottabelle
reicht.



reicht es nicht, einen Rechtsklick auf die Pivt-Tabelle zu machen und
dort auszuwàhlen "PivotTable-Optionen"? Dort kannst du dann unter "Für
leere Zellen anzeigen" eine 0 eingeben.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen