Pivottabelle (nächster Versuch)
02.07.2003 14:38:40
Frank
ich habe folgendes Makro,dass in einer normalen Tabelle funktioniert:
Sub WerteVerschieben()
Dim zelle As Range
Dim bereich As Range
Set bereich = Sheets("Tabelle2").Range("C1:C10")
For Each zelle In bereich
If zelle.Value <> "" Then zelle.Offset(0, -1).Value = zelle
zelle.Clear
zelle.Offset(1, 0).Select
Next zelle
End Sub
Wenn ich dieses Makro in einer Pivottabelle anwende, bekomme ich eine Fehlermeldung:Laufzeitfehler 1004.
Was muß ich tun?
Gruß
Frank
Anzeige