Sum Function fuer alle Tabellen
05.10.2005 21:04:53
marc
Ich habe 8-Tabellen, alle gleich formatiert.
In Spalte "C6:C26" werden Namen eingetragen (Text )
Wie kann ich in allen Tabellen aus den eingetragenen Namen die Summen
(Anzahl der Namen) bilden. Das Ergebnis muss in allen Tabellen in Celle
C28 stehen.Ich habe ein Versuch gemacht.Leider wird die Summe falsch berechnet.
Ausserdem arbeitet die Sub Prozedur nur in aktivem Blatt.
wer kann mir weiterhelfen?
marc
Private Sub CommandButton2_Click() Dim SumName As Long Dim RaCb As Range For Each RaCb In Range("C8:C26") If RaCb.Value = Value Then SumName = SumName + 1 Next RaCb ActiveSheet.Cells(28, 3).Value = SumName End Sub