AW: Zähle bis neuer Name
27.08.2012 16:57:02
fcs
Hallo Alexandra,
hier eine benutzerdefinierte Funktion -ähnlich SUMMEWENN, die die Lücken überbrückt.
Nach dem Kopieren in ein allgemeines VBA-Modul in deiner Datei kannst du sie benutzen wie jede andere Tabellenfunktion.
Gruß
Franz
'Fuction in einem allgemeinen Modul der Datei
Public Function fncSummeSpezial(varName As Variant, BereichNamen As Range, BereichWerte As _
Range) As Double
Dim Zeile As Long
For Zeile = 1 To BereichNamen.Count
If BereichNamen.Cells(Zeile, 1) = varName Then
fncSummeSpezial = BereichWerte(Zeile, 1)
Do Until BereichNamen.Cells(Zeile + 1, 1) ""
Zeile = Zeile + 1
fncSummeSpezial = fncSummeSpezial + BereichWerte.Cells(Zeile, 1)
If Zeile = BereichNamen.Rows.Count Then Exit Do
Loop
Exit For
End If
Next
End Function
Tabellen-Beispiel:
Tabellenblattname: Tabelle1
M N O
6 manuell Makro-Formel
7 Max Frisch 107 107
8 Hans Muster 69 69
9 Fritz Kurt 64 64
Benutzte Formeln:
N7: =SUMME(I7:I12)
N8: =SUMME(I13:I24)
N9: =SUMME(I25:I33)
O7: =fncSummeSpezial(M7;$B$7:$B$33;$I$7:$I$33)
O8: =fncSummeSpezial(M8;$B$7:$B$33;$I$7:$I$33)
O9: =fncSummeSpezial(M9;$B$7:$B$33;$I$7:$I$33)