Re: gleiche Inhalte summieren
15.05.2002 21:58:30
Klaus Schubert
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