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

Suche-summe Makro

Suche-summe Makro
04.07.2003 11:02:31
Stevie
Hi Leutz,
hab mal wieder ein kleines Problem.
Und zwar hab ich eine Tabelle in der in Spalte B Nummer stehen.
Diese Nummer kann in der Spalte mehrmals vorkommen.
Nun hätte ich in dieser Spalte jede Nummer gerne nur einmal jedoch sollen die Werte die in Zeile H stehen dabei summiert werden so das unter dem Strich der Wert jeder einzelnen Nummer heraus kommt.
Hoffe das war jetzt einigermassen verständlich erklärt :)
Vielen Dank im Voraus *frohbindaseseuchgibt*
Stevie

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche-summe Makro
04.07.2003 11:38:35
ChrisL
Hi Stevie
Option Explicit

Sub summieren()
Dim iZeile As Long, iiZeile As Long
Application.ScreenUpdating = False
For iZeile = Range("B65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("B1:B" & Range("B65536").End(xlUp).Row), Cells(iZeile, 2)) > 1 Then
For iiZeile = 1 To iZeile
If Cells(iiZeile, 2) = Cells(iZeile, 2) Then Exit For
Next iiZeile
Cells(iiZeile, 8) = Cells(iiZeile, 8) + Cells(iZeile, 8)
Rows(iZeile).EntireRow.Delete
End If
Next iZeile
Application.ScreenUpdating = True
End Sub

Gruss
Chris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige