tæl antal celler der er noget i

med tal, eller både tal og bogstaver?

både med tal og bogstaver

har du prøvet med tæl.hvis?

nede i bunden af excel til højre er der nogen grå felter
nr.2 felt fra venstre kan du højreklike og vælge \"Antal\" og derefter viser den hvor mange celler der er noget i, når du markerer et område

jumario>> det er godt nok .... jeg skal bare have resultatet i en celle

b_hansen>> kan du give mig resten af formlen ?

skod, så må jeg stå af :(

jeg arbejder på sagen *SS*

Imens du markerer området A1:J40 så tælles rækker og kolonner i navigeringsfeltet (Det felt hvor der står A1 når A1 er markeret) Du vil se at markeringen A1:J40 har 40 rækker og 10 kolonner => 40*10=400

Du kan også gøre det med en makro:

Sub AntalCeller()
Dim rCell As Range: iCount As Integer
    For Each rCell In Selection
        iCount = iCount + 1
    Next rCell
    MsgBox \"Antal celler i området er \" & iCount
End Sub

OK - læste lige, at du ville have resultatet i en celle - følgende function kan gøre det:

I en celle skriver du    =AntalCeller(A1:J40)

Function AntalCeller(rRange As Range) As Integer
Dim rCell As Range
Dim iCount As Integer
    For Each rCell In rRange
        iCount = iCount + 1
    Next rCell
    AntalCeller = iCount
End Function

flemmingdahl>> er det i orden jeg lige ringer

Ovenstående bliver nok hurtigt for lille - denne her er bedre

Function AntalCeller(rRange As Range) As Double
Dim rCell As Range
Dim dCount As Double
    For Each rCell In rRange
        dCount = dCount + 1
    Next rCell
    AntalCeller = dCount
End Function

tæller den så ikke alle? Og ik kun dem hvor der er noget i?

Prøv denne - den virker *S*

Sub Tæller()

\' sætter ny farve på det valgte område
Selection.Font.ColorIndex = 41
 
\'Finder sidste celle i arket
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
SidsteRække = ActiveCell.Row
SidsteKollonne = ActiveCell.Column

\'gennemløbber alle celler i arket og leder efter de farvede
For i = 1 To SidsteRække
    For n = 1 To SidsteKollonne
        If Cells(i, n).Font.ColorIndex = 41 And Cells(i, n).Value <> \"\" Then
            Antal = Antal + 1
        End If
    Next n
Next i

MsgBox Antal

\'sætter farven tilbage igen
Cells.Select
Selection.Font.ColorIndex = xlAutomatic
Range(\"A1\").Select
End Sub

Dette blev resultatet

Function AntalCeller(rRange As Range) As Double
Dim rCell As Range
Dim dCount As Double
    For Each rCell In rRange
        If rCell <> \"\" Then dCount = dCount + 1
    Next rCell
    AntalCeller = dCount
End Function

hvis du vil have svaret i en celle kan du til sidst skrive:

Range(\"B20\").Select
ActiveCell.FormulaR1C1 = Antal

tak for hjælpen til alle

-> flemmingdahl: Hvordan skal den bruges ?

f.eks. =AntalCeller(Ark1!A1:J40) eller blot =AntalCeller(A1:J40)

Resultat = antal celler i området
Function AntalCeller(rRange As Range) As Double
Dim rCell As Range
Dim dCount As Double
    For Each rCell In rRange
        dCount = dCount + 1
    Next rCell
    AntalCeller = dCount
End Function


Resultatet = antal brugte celler i området
Function AntalCeller(rRange As Range) As Double
Dim rCell As Range
Dim dCount As Double
    For Each rCell In rRange
        If rCell <> \"\" Then dCount = dCount + 1
    Next rCell
    AntalCeller = dCount
End Function 

-> flemmingdahl:  OK - tak *S*