Clever-Excel-Forum - Excel VBA Schriftgröße ändern

Nabend zusammen,

Ich habe ein Excel Dokument, dass ich in verschiedenen Sprachen darstellen möchte.
Leider sind die Zellinhalte, je nach Sprache, unterschiedlich lang.
Deshalb möchte ich die Inhalte in unterschiedlicher Textgröße darstellen.

Dies habe ich so probiert.
Funzt aber leider nicht mit sovielen Zellen. Mit 3 im Test aber schon. Kann mir wer sagen was ich falsch mache ?

Danke Wexel

'Größe Deutsch
'Gr 9 (normal)
With Range("B8,O8,AD8,AR8,B10,C16,S16,W16,AT16,C18,S20,AE20,S22,AE22,S24,AE24,S26,AE26,S28,AE28,C30,S30,AM30,S32,C34,I34,O34,X34,AS34,B36,U36,AN36,AY36,C41,V41,Y41,AB41,C43,V43,Y43,C45,V45,Y45,C47,BB52,BE52,C54,Q54,T54,C56,Q56,T56,C58,Q58,T58,C60,Q60,T60,C62,Q62,T62,C64,C66,R66,U66,W66,AO66,C68,C70,T72,Q74,AL74,AU74,C76,AD76,AG76,C78,C80,AM80,C82,C84,C86")
.Font.Size = 9
End With

'Gr 8.5
With Cells("C52")
.Font.Size = 8
'End With
'Gr 8
With Cells("S18,AM32,W54,AD54,AN54,W56,AD56,AN56,W62,AD62,AI62,AR62,C72,P72,R72,C74,U74")
.Font.Size = 8
End With

Hallo

da wirst du wohl mit Union arbeiten müssen

Code:
Union(Range("B8,O8,AD8,AR8,B10,C16,S16,W16,AT16,C18,S20,AE20,S22,AE22,S24,AE24,S26" _

), Range("AE26,S28,AE28,C30,S30,AM30,S32,C34,I34,O34,X34,AS34,B36,U36,AN36,AY36,C41" _

), Range("V41,Y41,AB41,C43,V43,Y43,C45,V45,Y45,C47,BB52,BE52,C54,Q54,T54,C56,Q56,T56" _

), Range("C58,Q58,T58,C60,Q60,T60,C62,Q62,T62,C64,C66,R66,U66,W66,AO66,C68,C70,T72,Q74" _

), Range("AL74,AU74,C76,AD76,AG76,C78,C80,AM80,C82,C84,C86")).Font.Size = 9

aber mal ne Frage...
was ist DAS...?

Cells("C52")

MfG Tom

das war nen ganz einfacher Kopierfehler .. :16:

Danke, werde es morgen mal probieren

Es klappt, Danke Crazy Tom