Kleines Problem mit einem Makro... :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Kleines Problem mit einem Makro...

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

tobstein
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 25

Verfasst am: 18.03.2008, 17:16

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 Laughing

Danke schon einmal
tobi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 18.03.2008, 17:32

Hallo!

Teste mal, ob das hier hilft:

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

tobstein
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 25

Verfasst am: 18.03.2008, 17:43

Hallo schatzi,

jetzt bereits zum zweiten Mal...Du bist mein persönlicher Held. Very Happy

Deine Lösung funktioniert perfekt!!!

Vielen Dank
tobi

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro gesucht Zeile kopieren und in j...	philipp.geyer	Microsoft Excel Hilfe	4	05.09.2008, 15:59
	Excel Formular Problem	Mercuryswift	Microsoft Excel Hilfe	0	04.09.2008, 10:57
	Makro das email loescht	stom	Microsoft Outlook Hilfe	0	03.09.2008, 13:20
	Wenn/Dann Problem	hasegoe	Microsoft Excel Hilfe	3	02.09.2008, 22:07
	VBA problem mit UsedRange	Posaune	Microsoft Excel Hilfe	6	02.09.2008, 19:21

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de