summe aus zellen berechnen
19.03.2008 14:07:56
Jonatan
habe folgendes Problem:
Wenn in der Spalte c "prozentualer Anteil Stunden" steht, dann soll die Zelle rechts daneben erfasst werden und mit allen Zellen, die diese Bedingung erfüllen summiert werden.
Ich weiß nicht genau, wie ich die Zelle "rechts daneben" ansprechen soll und wie ich dann die Summe bilde.
Hab hier mal meinen noch kläglichen Ansatz.
vielen Dank für eure Hilfe
Sub hallo()
Dim Loletzte As Long
Dim zel As Range
Dim summe As Double
Dim anzahl As Integer
summe = 0
anzahl = 0
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
With ThisWorkbook.Worksheets("hallo")
For Each zel In .Range("C1:C50")
If zel = "prozentualer Anteil Stunden" Then
summe = summe + ?Range(Cells(zel, 4)).value? ' hier ist der Fehler
anzahl = anzahl + 1
End If
Next zel
Cells(Loletzte - 5, 4) = summe / anzahl
End With
End Sub
Im Endeffekt soll noch die Anzahl der diese Bedingung erfüllenden Werte gefunden werden um den Mittelwert zu bilden.
Gruß Jonatan