Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige