Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Addition von Zeilen

Addition von Zeilen
28.10.2002 09:57:42
Florian Schmidt
Hallo zusammen!

Mir stellt sich momentan folgendes Problem:
Einmal Monatlich wird eine Tabelle der folgenden Art durch mehrere hundert Zeilen ergänzt 8 son wie in Zeile 3 und 4 dargestellt).

ABCDE
1 W-Nr Kunde AE Umsatz KE
2 20 a 50,00 5,00 1,00
3 21 b 20,00 15,00 2,00
4 21 70,00 25,00 3,00
5 22 c 2.000,00 1000,00 3,00
6 23 d 2,00 580,00 3,00
7 24 e 5,00 8,00 5,00

Nun meine Frage: wie ist es möglich, die doppelten W-Nr (Spalte A) zu finden und dann die Spalen C-E zu addieren und danach die Zeile 4 zu löschen. Das Ergebnis der Addition der einzelen Zellen sollte sich nach Möglichkeit wieder in Zeile 3 in der jeweiligen Spalte befinden.

Ich hoffe ich habe mein Problem nicht zu konfus dargestellt.
Vielen Dank im Voraus für Hilfestellungen

Florian



3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Addition von Zeilen
28.10.2002 10:52:47
bernd
Hallo Florian,

hier eventuell eine Lösung:

Sub addieren()

'Tabellenende ermitteln
ActiveSheet.Range("a65536").Select
Selection.End(xlUp).Select
tabellenende = ActiveCell.Row

'Schleife durch Spalte B um die WE's zu finden

For a = 2 To tabellenende
If ActiveCell.Row = tabellenende Then
Exit For
Else
Cells(a, 1).Select
W_NR = Cells(a, 1).Value
AE = Cells(a, 3).Value
Umsatz = Cells(a, 4).Value
KE = Cells(a, 5).Value
' doppelte WE's werden addiert, und die gefundene Zeile gelöscht
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = W_NR Then
AE = AE + ActiveCell.Value
Umsatz = Umsatz + ActiveCell.Value
KE = KE + ActiveCell.Value
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
tabellenende = tabellenende - 1
End If
Loop Until ActiveCell.Row = tabellenende
'Summen werden in die erste gefundene Zeile wieder eingetragen.
Cells(a, 3).Value = AE
Cells(a, 4).Value = Umsatz
Cells(a, 5).Value = KE
End If

Next a

End Sub

Viel Spaß

Gruß

Bernd


Anzeige
Re: Addition von Zeilen
30.10.2002 12:52:17
Florian Schmidt
Danke für die Hilfen! Hat funktioniert.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige