Selektieren bei Filter
kurt
habe letzte Woche die Unterstützung erhalten mit einer Selektion.
Wenn ich einen Bereich selktiere wird mir die Menge angzeigt, problem
wenn ich gefiltert habe werden die nicht angzeigten Zellen mit gezählt.
Ich glaub Rudi hatte geholfen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[E1] = WorksheetFunction.Sum(Target)
[H1] = Target.Count
End Sub
So hatte ich dann es mit mit einem Button eingesetzt:
Sub SummeSelektion()
Dim rZelle As Range
Dim dSumme As Double
Dim I As Long
I = Selection.Cells.Count
Range("H1").Value = I
MsgBox I & " Zellen selektiert"
For Each rZelle In Selection.Cells
If Trim(rZelle.Value) "" Then
If IsNumeric(rZelle.Value) Then
dSumme = dSumme + CDbl(rZelle.Value)
End If
End If
Next rZelle
Range("E1").Value = dSumme
Range("H1").Value = I
MsgBox "Die Summe beträgt " & dSumme & " ", _
64, " Information für " & Application.UserName
End Sub
gibt es eine Möglichkeit das zu ändern ?
mfg Kurt P
Anzeige