Summe anstelle Anzahl zählen.
18.01.2009 15:10:00
Wolfgang
den untenstehenden Code hatte mir Tino zur Verfügung gestellt. Er bewirkt, dass die Anzahl der Übereinstimmungen zwischen Spalte D und H angezeigt wird. Wie müßte der Code geändert werden, wenn -bei gleichen Voraussetzungen zwischen Spalte D und H nun allerdings die jeweilige Summe in Spalte G zusammengerechnet wird? - Danke schon jetzt wieder für die Rückmeldungen.
Gruß - Wolfgang
Sub Schaltfläche1_BeiKlick()
Dim meArea1, meArea2
Dim A As Long
Dim meCounter As Long
Dim Suchwert1 As String, Suchwert2 As String
With Sheets("Start")
Suchwert1 = .Range("A2")
Suchwert2 = .Range("B2")
With Sheets("Tabelle1")
meArea1 = .Range("D1", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 4))
meArea2 = .Range("H1", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 8))
End With
For A = 1 To UBound(meArea1)
If meArea1(A, 1) = Suchwert1 And Suchwert2 = meArea2(A, 1) Then _
meCounter = meCounter + 1
Next A
MsgBox meCounter
.Range("A5") = meCounter
End With
End Sub