Dim r As Range              'Das zu durchsuchende Range-Object
 
    Dim iter As Boolean         'Loop-Variable
 
    Dim fm As Variant           'Name des Formates nach dem gesucht wird
 
    'Fuer jedes Format suche das Format solange, bis das Ende des
    'Range-Objektes erreicht ist, oder es nicht mehr gefunden wird
    For Each fm In m_formats
        Set r = p.Range
        iter = True
        While iter And r.Start < p.Range.End
            iter = False
            With r.Find
                    .Style = fm <---- Das ist die Stelle, an der der _
                      Laufzeitfehler auftritt.