Sammentælling i vba

Hvorfor i VBA?

fordi jeg kører en makro/vba via en knap som sletter hele regnearket og således indsætter data i regnearket.

Kunne du så ikke lade makroen indsltte formler i regnearket, der udførte beregningen i stedet for?

Det kan jeg godt og den fungerede ok, men jeg skal ind at rette den til hver gang jeg får en ny medarbejder, så jeg kunne godt ting mig, hvis det kunne ske automatisk.

Sub tælFejl()
Dim tæl, tal As Integer
søg = "Din fejl"
tal = 0
værdier = Range("A2:T500")
For j = 2 To 20
tæl = 0
For i = 1 To 200
If søg = værdier(i, j) Then
  tæl = tæl + 1
End If
Next i
If tæl <> 0 Then
  Cells(1, 1) = tal
Else
  Cells(1, 1) = ""
End If
tal = tal + tæl
Next j
End Sub

du skal bare rette den til hvad den skal tælle og hvor den skal tællesammen osv

Har ikke så meget at gå efter men du kan skrive noget mere så ser vi på det.

I kolonne G har jeg stående udenfor være række, hvem der har lavet fejlen. Jeg vil gerne have i kolonne I  står navnet på personen og i kolonne J står hvor mange fejl personen sammenlagt har lavet.

Har du navne stånende i kolonne I fast!?

stående

Nej

hunn skal se hvad jeg kan gøre så for det bliver lidt mere kompliceret så
men en løsning finder vi..

Private Sub Countall()
Dim highest, Arr(20, 50) As Integer
Dim tæl As Integer
highest = UBound(Arr, 1)
Range("G2:G2000").AdvancedFilter Action:=xlFilterCopy,_
CopyToRange:=Range("I2:I200"), Unique:=True
For r = 2 To 50
søg = Cells(r, 9) 'celle med søgeværdi
værdier = Range("G1:G2000")
tæl = 0
For i = 2 To UBound(værdier)
    If søg <> "" Then
      If søg = værdier(i, 1) Then
          tæl = tæl + 1
      End If
    End If
Next i
If tæl = 0 Then
  Cells(r, 10) = ""
Else
  Cells(r, 10) = tæl
End If
Next r
End Sub

Den skulle lave en liste over alle de navne fra G:G i I:I og tælle dem sammen i J:J

virker det som det skal!?

Ja det gøre. Tusinde tak for hjælpen