Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summen in neuer Spalte

Summen in neuer Spalte
09.03.2004 09:34:36
Wolfgang
Hallo*
angenommen in Spalte E stehen Summen, in Spalte G Buchungsnummern.- Gibt es die Möglichkeit, über VBA die jeweiligen Summen zu den jeweiligen Buchungsnummern wieder in getrennten Spalten als Gesamtsumme erscheinen zu lassen?
Beispiel:
.E..........G...........Ergebnis in:..I......und......J....z.B.
10,00.... 11........................ 25,00.............11
15,00.... 11.........................20,00.............15 etc.
20,00.... 15 etc.
Hat irgendwer eine Idee? - Danke schon jetzt für Eure Mitwirkung.
Gruß Wolfgang

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summen in neuer Spalte
09.03.2004 11:05:38
Beni
Hallo Wolfgang,
versuche es mit diesem Code.
Gruss Beni

Sub Summe_in_neuer_Spalte()
a = 1
For r = 1 To Cells(65536, 7).End(xlUp).Row
Wert = Cells(r, 7).Value
For s = 1 To Cells(65536, 7).End(xlUp).Row
If Cells(s, 7) = Cells(r, 7) Then Summe = Summe + Cells(s, 5)
Next s
With ActiveSheet.Columns(10)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
Cells(a, 9) = Summe
Cells(a, 10) = Wert
a = a + 1
End If
Summe = 0
End With
Next r
End Sub

AW: Summen in neuer Spalte
09.03.2004 11:22:07
Wolfgang
Hallo Beni,
Danke für Deine Rückantwort und Bemühungen.- Werde Makro heute abend direkt zuhause ausprobieren.
Gruß Wolfgang
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige