title image


Smiley Re: Makro: letzte leere Zellen finden und den Eintrag davor nicht mitrechnen
Hallo,

so kannst du es machen:





      

Sub Durchschnitt()



    Dim ende As Integer

    

    ende = 16

    Do While Cells(ende, 3).Value = "" Or ende < 5

        ende = ende - 1

    Loop

    If ende < 5 Then Exit Sub

    

    If[g17] = "" Then

      [c20] = Application.WorksheetFunction.Average(Range("C5:C" & ende))

    Else

        If[g17] = "x" Then

          [c20] = Application.WorksheetFunction.Average(Range("C5:C" & ende - 1))

        End If

    End If



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Den Fall, dass du nur für Januar einen Wert hast und ein x gesetzt ist, hab ich nicht abgefangen.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: