Rekapitulation der Nummer des Wortes in einer anderen Zelle

Question

In meinem Blatt "Download".

In Spalte C ich habe:

BRONZE 
SILVER 
SILVER 
BRONZE 
GOLD 
PLATIN 
PLPLUS 
AMBASS 
PLPLUS 
etc... 

Was ich tun möchte

ist

in the cell J7: Bronze: "Total of Bronze" 
in the cell J8: Silver: "Total of Silver" 
in the cell J9: Gold: "Total of Gold" 
in the cell J10:Platinum "Total of PLATIN" 
in the cell J11:Platinum Plus "Total of PLPLUS" 
in the cell J12:Ambassador "Total of AMBASS" 
in the cell J13:Total "Total of Bronze, silver, gold, platin, plplus & Ambass" 

Ich glaube nicht, für jemanden, der es gut vBA weiß wird schwer zu beantworten.

Answer 1

Für Excel Formel Versuchen Sie dies auf J1

="Total of " & COUNTIFS(C:C,C1) & " " & C1

Answer 2

Ich bin nicht sicher, warum diese in VBA tun, sondern weil Sie darauf bestehen, muss es sein:

Sub CountThem 
    With Worksheets("Download") 
     .Range("J7").Value = "Bronze: " & Application.CountIf(.Range("C:C"), "Bronze") 
     .Range("J8").Value = "Silver: " & Application.CountIf(.Range("C:C"), "Silver") 
     .Range("J9").Value = "Gold: " & Application.CountIf(.Range("C:C"), "Gold") 
     .Range("J10").Value = "Platinum: " & Application.CountIf(.Range("C:C"), "PLATIN") 
     .Range("J11").Value = "Platinum Plus: " & Application.CountIf(.Range("C:C"), "PLPLUS") 
     .Range("J12").Value = "Ambassador: " & Application.CountIf(.Range("C:C"), "AMBASS") 
     .Range("J13").Value = "Total: " & _ 
           (Application.CountIf(.Range("C:C"), "Bronze") + _ 
           Application.CountIf(.Range("C:C"), "Silver") + _ 
           Application.CountIf(.Range("C:C"), "Gold") + _ 
           Application.CountIf(.Range("C:C"), "PLATIN") + _ 
           Application.CountIf(.Range("C:C"), "PLPLUS") + _ 
           Application.CountIf(.Range("C:C"), "AMBASS")) 

    End With 
End Sub