Herbers Excel-Forum - das Archiv

gleiche Inhalte summieren



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: gleiche Inhalte summieren
von: Stephan


Geschrieben am: 15.05.2002 - 16:19:26

Hallo,

Ich habe folgendes Problem:
Ich habe eine Liste mit 2 Spalten, in der 1. Spalte Abteilungen, in der 2. Spalte Werte. Jetzt möchte ich in dieser Liste die Werte einer Abteilung addieren und das summierte Ergebnis behalten, die anderen Einträge dieser Abteilung sollen rausfliegen.
Wie ist das mit VBA möglich?

nach oben   nach unten

Re: gleiche Inhalte summieren
von: Klaus Schubert


Geschrieben am: 15.05.2002 - 21:58:30

Hallo Stephan,

klicke in deiner Spalte A einen Abteilungsnamen an und führe dann folgenden Code aus.
Es ist dabei egal. in welcher Zeile der Abteilungsname steht, es bleibt immer der erste Eintrag mit der Summe erhalten:


Die summierte Abteilung erscheint nach der Prozedur in Fettschrift, 
damit mann weiß, das der Vorgang für diese Abteilung abgeschlossen ist. 
Alle anderen Zeilen mit dem selben Abteilungsnamen werden gelöscht 
(Es wird immer die komplette Zeile gelöscht !!!).
Sind deine Abteilungsnamen nicht in Spalte 1(=A) , dann mußt du folgende Codezeile entsprechend anpasssen

If ActiveCell.Column <> 1 Then Exit Sub '(1 = Spalte A , 2 = Spalte B , usw.)

Ich hoffe , es war das, was du wolltest.
Gruß Klaus


nach oben   nach unten

Re: gleiche Inhalte summieren
von: Stephan

Geschrieben am: 16.05.2002 - 10:21:02

Ja, das schaut schon nicht schlecht aus.
Geht das auch, ohne dass ich eine Abteilung markieren muss, sondern dass einfach von oben nach unten durchgelaufen und summiert wird?

Gruß,
Stephan


nach oben   nach unten

Re: gleiche Inhalte summieren
von: Klaus Schubert

Geschrieben am: 16.05.2002 - 20:23:59

Hallo Stephan,

versuch's mal hiermit.Es dürfen allerdings keine Leerzellen zwischen den Abteilungsnamen sein, da die Routine sonst abbricht.

Gruß Klaus

 nach oben

Excel-Beispiele zum Thema "gleiche Inhalte summieren"
Zellen vergleichen und markieren Tabellen vergleichen
Spalten A und B vergleichen und Doppel in C listen Werte vergleichen
Bereiche auf Übereinstimmung vergleichen Daten in jeweils einer Spalte zweier Tabellen vergleichen
Gleiche Zufallszahlen zählen und in Diagramm anzeigen Werte vergleichen und Ergebnis in Tabelle eintragen
Preisvergleiche Tabellen vergleichen und Zeilen ersetzen