Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen zusammenfassen und Werte Addieren mit VBA

Zeilen zusammenfassen und Werte Addieren mit VBA
17.08.2005 19:03:24
Harald
Hallo Ich habe folgendes Problem :
Ich habe eine Tabelle aus mehrerern Spalten besteht.
Beispiel:
Kennnummer Name Bereich WERT 1 WERT 2
1 X A 10 2
1 X A 5 1
1 X A 5 5
2 H B 8 44
2 H B 5 556
3 G C 6 9
3 G C 4 8
3 G C 5 2
3 G C 6 8
4 M D 4 3
4 M D 3 88
4 M D 4 55
4 M D 8 55
In der ersten Spalte A kommen immer wieder die gleichen Nummern vor.
Ich möchte die Zeilen zu einer zusammenfassen und den Wert in den Spalten C
addieren und die Werte in der Spalte D addieren
Tabelle soll nachher so aussehn:
Kennnummer Name Bereich WERT 1 WERT 2
1 X A 20 8
2 H B 13 600
3 G C 21 27
4 M D 19 201
Wenn einer eine Lösung wüsste wäre toll.
Gruß Harald

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zusammenfassen und Werte Addieren mit V
17.08.2005 20:29:03
ChrisBee
Hallo Harald.
Wenn Du einen CommandButton daneben baust dann gehts mit diesem Code:

Private Sub CommandButton1_Click()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Do Until Cells(iRow, 1).Value <> Cells(iRow + 1, 1).Value
If Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value Then
Cells(iRow, 4) = Cells(iRow, 4) + Cells(iRow + 1, 4)
Cells(iRow, 5) = Cells(iRow, 5) + Cells(iRow + 1, 5)
Rows(iRow + 1).Delete
End If
Loop
iRow = iRow + 1
Loop
End Sub

Mit ein bisschen basteln kann mans aber auch in ein Makro setzen.
Sonnige Grüße
ChrisBee
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige