Summen in neuer Spalte
10.03.2004 07:18:02
Wolfgang
und Hallo Beni,
Beni, Du hattest mir gestern freundlicherweise das folgende Makro geschrieben, um aus einem Tabellenblatt die Gesamtsumme zu jeweils vorhandenen Buchungsnr.
erneut in eine andere Spalte zu kopieren.- Klappt auch fast, habe gestern noch herumgetrickst, aber den letzten Dreh nicht dabei hinbekommen. Irgenwie muß da wohl was mit Dim etc. noch vorangestellt werden.- Kannst Du mir, Beni, oder jemand anders da evtl. noch Hinweise geben? - In meinem Test wurden dann z.B. nur Summen vor dem Komma zusammengezählt, also Summen wie z.B. 0,15 ignorierte meine Maschine und machte direkt eine 0 daraus.
Hier noch das Makro: (und Danke schon jetzt für Eure Mitwirkung)
Gruß - Wolfgang Berger
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