etwas Vereinfachung tut Not

[Hago]

Hallo,

ich habe in einem Makro zwei Schleifen. In beiden gibt es sowas:
............
oTabelle2.getCellByPosition(ineu+7,jn).String = oTabelle1.getCellByPosition(i,j).String
else
oTabelle2.getCellByPosition(ineu+7,jn).String = oTabelle1.getCellByPosition(i,j).String
oTabelle2.getCellByPosition(8,jn).CharWeight = 50
if oTabelle2.getCellByPosition(10,jn).String = "Frankreich" then oTabelle2.getCellByPosition(10,jn).String = "Frankr."
if oTabelle2.getCellByPosition(10,jn).String = "Dom.Republik" then oTabelle2.getCellByPosition(10,jn).String = "Dom.Rep."
if oTabelle2.getCellByPosition(12,jn).String = "" then oTabelle2.getCellByPosition(8,jn).CharWeight = 150
if oTabelle2.getCellByPosition(12,jn).String = "" then oTabelle2.getCellByPosition(8,jn).CharHeight = 11
end if
..............................
Voraussichtlich wird dieser Bereich mit den bedingten Formatierungen noch wachsen.
Deshalb wollte ich gerne wissen, ob man das auch vereinfachen kann.

Ich habe schon versucht, ständig wiederkehrende Teile in einer Variablen zusammenzufassen, hat aber nicht geklappt.

Gruß, Hago