ich habe im Netz ein Makro gefunden das die Nullwerte in der Ergebnisspalte einer Pivot-Tabelle löschen soll:
Sub ausblenden()
Dim Zeile As Double
Dim Spalte As Double
Spalte = "Nummer der Spalte, in der die Nullwerte herausgefiltert werden sollen"
Zeile = "Nummer der Zeile, in der der erste Wert steht"
Do While Cells(Zeile, Spalte) ""
If Cells(Zeile, Spalte) = 0 Then
Rows(Zeile).EntireRow.Hidden = True
End If
Zeile = Zeile + 1
Loop
MsgBox "fertig", 64, "FERTIG"
End
Sub
Meine Ergebnis steht in Spalte "C" und die Zeile mit dem ersten Wert ist die "4"
Meine Frage: Kann mir jemand die beiden Werte in das Makro einbauen, so das es funktioniert?
Vielen Dank im Voraus.
Gruß
Karin