Office: Makro "Zellen hinzufügen"

HalliHallo,

ich habe eine PivotTabelle, die automatisch Kunden einfügt (weglässt) je nachdem welchen/wieviele Kunden man auswählt. Jetzt habe ich hierfür ein Makro geschrieben, das die leeren Zeilen, in denen kein Kunde steht, wegfallen lässt.
Wenn aber jetzt ein Kunde hinzukommt, dann fügt das Makro nicht mehr automatisch diese Zeile ein.
Wie löse ich dieses Problem?
Wäre schön, wenn mir jemand helfen könnte
gruss
Christina

 

Schreib doch mal das Makro hier hin. Wie soll Dir denn sonst jemand helfen?

Gruß
Michael

 

hier das Makro:

Sub AusblendenderLeerenZeilen()
Dim Datenfeld(1, 6) As Integer

With Sheets("Tabelle1")
For intz = 3 To .UsedRange.Rows.Count
If IsEmpty(.Cells(intz, 3).Value) Then
.Cells(intz, 3).EntireRow.Hidden = True
End If
Next intz
End With
End Sub

Gruß Christina