Excel VBA Schriftgröße ändern

[Wexel]

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

[Crazy Tom]

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

[Wexel]

das war nen ganz einfacher Kopierfehler .. :16:

[Wexel]

Danke, werde es morgen mal probieren

[Wexel]

Es klappt, Danke Crazy Tom