excel makro: prozent

 wsz.Cells(l_zeile, 1).Value = f_SpUeb(sp)
   wsz.Cells(l_zeile, 2).Value = (l_rot / betreute_Prozesse_ges) * 100
   
   wsz.Cells(l_zeile, 3).Value = l_gelb / betreute_Prozesse_ges
  
   wsz.Cells(l_zeile, 4).Value = l_gruen / betreute_Prozesse_ges
   
   
   wsz.Cells(l_zeile, 6).Value = l_grau / betreute_Prozesse_ges

Option Explicit
Sub Excel_ZellenMitProzentAngaben()
  
  Dim wsz As Worksheet, l_zeile As Long
  Dim l_rot As Long, l_gelb As Long, l_gruen As Long, l_grau As Long
  Dim betreute_Prozesse_ges As Long

 ->*** Notwendig nur für Test
  l_rot = 3
  l_gelb = 5
  l_gruen = 2
  l_grau = 10
  betreute_Prozesse_ges = 20
  l_zeile = 2
  Set wsz = ActiveSheet
 ->*** Notwendig nur für Test
    
  With wsz.Cells(l_zeile, 2)
    .NumberFormat = 0%-> mit Nachkommastellen 0.00%
    .Value = l_rot / betreute_Prozesse_ges
  End With
  With wsz.Cells(l_zeile, 3)
    .NumberFormat = 0%-> mit Nachkommastellen 0.00%
    .Value = l_gelb / betreute_Prozesse_ges
  End With
  With wsz.Cells(l_zeile, 4)
    .NumberFormat = 0%-> mit Nachkommastellen 0.00%
    .Value = l_gruen / betreute_Prozesse_ges
  End With
  With wsz.Cells(l_zeile, 6)
    .NumberFormat = 0%-> mit Nachkommastellen 0.00%
    .Value = l_grau / betreute_Prozesse_ges
  End With
  
  Set wsz = Nothing
End Sub