Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zusammenfassen von Zeilen

Forumthread: Zusammenfassen von Zeilen

Zusammenfassen von Zeilen
09.07.2004 13:28:52
Zeilen
Hallo liebe Community
Habe folgendes Problem - möchte in einem Excelblatt ein VBA einfügen sodass Excel bei Druck auf Button in dem sheet kontrolliert ob Werte in bestimmten Zellen gleich (A, B) sind und wenn dies der Fall ist den Zahlenwert einer Spalte (C)aufsummiert.
Bsp.
Spalte
A; B; C;
12; 10; 20;
13; 14; 11;
13; 14; 11;
In diesem Fall sollte Excel erkennen dass die Werte der Spalte a und B in den Zeilen 2 und 3 gleich sind.
Als Ergebnis sollte Excel die Zeile 2 und 3 in einem neuen Tabellenblatt zusammenfassen und dabei die Werte der Spalte C aufaddieren.
12; 10; 20;
13; 14; 22;
Ich danke euch schon im vorhinein für eure Lösungen
LG Gernot
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zusammenfassen von Zeilen
Zeilen
Hi,
check this:

Sub AB_C_Sum()
Dim lngZeil As Long
Dim strVergleich As String
Dim lngSum As Long
lngZeil = 1
Do
If Cells(lngZeil, 1) & Cells(lngZeil, 2) <> strVergleich Then
If lngZeil > 1 Then
Cells(lngZeil - 1, 3) = lngSum
End If
strVergleich = Cells(lngZeil, 1) & Cells(lngZeil, 2)
lngSum = Cells(lngZeil, 3)
lngZeil = lngZeil + 1
Else
lngSum = lngSum + Cells(lngZeil, 3)
Rows(lngZeil).Delete
End If
Loop Until Cells(lngZeil, 1) = ""
Cells(lngZeil - 1, 3) = lngSum
End Sub

Bye
Nike
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige