Office: Kleines Problem mit einem Makro...

Hallo,

nachdem mir hier bei meinem letzten Problem so super geholfen wurde,
möchte ich mich auch mit einem neuen Problem an Euch Excel-Profis wenden.

Ich schlage mich gerade mit einem Makro herum, welches zwar funktioniert, aber eine dumme Nebenwirkung hat.

In einem Tabellenblatt habe ich einen Button hinterlegt, der folgendes Makro ausführt:

Private Sub CommandButton6_Click()
'Button 5 - 0-Punkte-Reihen löschen
Application.ScreenUpdating = False
On Error Resume Next
With Range("G6:G155")
.Replace 0, True, xlWhole
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
End Sub

Das Makro überprüft die Felder G6 bis G155 auf den Wert 0 und löscht (wenn das Feld den Wert 0 hat) die komplette Zeile.

In einem anderen Tabellenblatt habe ich folgende Formeln:

=SUMMEWENN(blatt1!$B$6:$B$155;"A";blatt1!$G$6:$G$155)
=SUMMEWENN(blatt1!$B$6:$B$155;"B";blatt1!$G$6:$G$155)
=SUMMEWENN(blatt1!$B$6:$B$155;"C";blatt1!$G$6:$G$155)

Die Formeln addieren z.B. alle Werte aus G6:G155, wenn in den B-Zellen etwa ein A steht usw.

Wenn ich aber das Makro ausführe, dass alle Zeilen mit 0-Werten gelöscht werden, ändern sich auch die Formeln ab...z.B. auf

=SUMMEWENN(blatt1!$B$6:$B$120;"A";blatt1!$G$6:$G$120)

Dann stimmt das Endergebnis aber nicht mehr, da sich z.B. in Zeile 122 noch Werte in der G-Spalte befinden können.

Was kann ich jetzt machen, damit ich mein Makro zwar ausführen kann...die Formeln aber so bleiben wie sie sind...???

Ich hoffe, da weiß jemand Rat :lol:

Danke schon einmal
tobi

 

Hallo!

Teste mal, ob das hier hilft:

=SUMMEWENN(INDIREKT("blatt1!B6:B155");"A";INDIREKT("blatt1!G6:G155") )

 

Hallo schatzi,

jetzt bereits zum zweiten Mal...Du bist mein persönlicher Held. :-D

Deine Lösung funktioniert perfekt!!!


Vielen Dank
tobi