[color=blue]Sub[/color] Test()
 
  [color=blue]Dim[/color] lSpalte [color=blue]As Long[/color] _
    [color=darkgreen]' welche Spalte enthält die Zahlen
  [color=blue]Dim[/color] lZeile [color=blue]As Long[/color]
 
  lSpalte = 1 [color=darkgreen]' 1.Spalte (Spalte A) prüfen
  lZeile = 1  [color=darkgreen]' Zellen ab Zeile 1 prüfen
 
  [color=darkgreen]' Schleife
  [color=blue]Do[/color]
    [color=darkgreen]' Zelle prüfen
    [color=blue]If[/color] Cells(lZeile, lSpalte) > 99 [color=blue]Then[/color]
      [color=darkgreen]' wenn größer 99, dann 100 subtrahieren
      Cells(lZeile, lSpalte) = Cells(lZeile, lSpalte) - 100
    [color=blue]End If[/color]
 
    [color=darkgreen]' gehe zu nächster Zeile
    lZeile = lZeile + 1
 
  [color=darkgreen]' Schleife erst beenden, wenn eine Zelle leer ist
  [color=blue]Loop Until[/color] Cells(lZeile, lSpalte) = ""
 
[color=blue]End Sub[/color]

Viel Spass,
R@lf