Frage zur Schriftformatierung in einem Makro

Computer: Software & Programmierung Office Software
1

Servus!

Habe in einem Makro u. A. diese Zeile hier:
.RightFooter = „&“„Verdana“"" & sh.Cells(1, 2).Value & Chr(10) & „Seite &amp:stuck_out_tongue_winking_eye: von &N“
Die Ausgabe wird (warum auch immer) in Schriftgröße 10 dargestellt, ich möchte aber Schriftgröße 8 haben.
Frage: Wie geht das?

Vielen Dank für Eure Hilfe!

LG
wurschtbrot

2

Hallo!

.RightFooter = „&“„Verdana“"" & sh.Cells(1, 2).Value &
Chr(10) & „Seite &amp:stuck_out_tongue_winking_eye: von &N“

Probier mal, diesen 10er durch 8 zu ersetzen. Ich glaub, dass da der Hund begraben liegt.

Gruß Alex

3

Hallo und danke!
Funktioniert leider nicht. Die „10“ hat was mit einem Zeilenumbruch zu tun…

4

Hallo und danke!
Funktioniert leider nicht. Die „10“ hat was mit einem
Zeilenumbruch zu tun…

Hallo WB,

ja. Zumindest als Chr(10).

RightFooter verlangt einen String. &9 bedeutet Schriftgröße 9.
&„Verdana“ bedeutet die Schrifart.
Allerdings mußt du dann wie immer die Anfürungszeichen verdoppeln wenn du sie in VBA eingibst.

Sub Makro2()
With ActiveSheet.PageSetup
.RightFooter = „&10H&8uh&10u“
End With
ActiveSheet.PrintPreview
End Sub

Das ergibt ein H in SG 10 (SG=Schriftgröße), danach uh in SG 8, dann ein u in SG 8.

Kommste damit klar?

Gruß
Reinhard

5

Hallo Reinhard,

danke erstmal…
Ich verstehe was Du mir sagen willst, weiß aber auch nach längerem Probieren nicht, wo genau in meinem Beispiel die „8“ stehen muss.

LG

6

Ich verstehe was Du mir sagen willst, weiß aber auch nach
längerem Probieren nicht, wo genau in meinem Beispiel die „8“
stehen muss.

hallo WB,

okay, dann probier ichs halt :frowning:

Du willst Größe 8 in
.RightFooter = „&“„Verdana“"" & sh.Cells(1, 2).Value & Chr(10) & „Seite &amp:stuck_out_tongue_winking_eye: von &N“

Wo, bzw. von wo bis wo genau?
Alles in „8“ oder nur &p und &N?

Und einen zeilenumbruch brauchst du nicht?

Gruß
Reinhard

7

Servus Reinhard,

Der komplette RightFooter soll sowohl in Verdana als auch in SG 8 ausgegeben werden. Inkl. Zeilenumbruch (ist ja eh schon drinnen).

Merci!

LG
WB

8

Ich hab probiert
hallo WB,

meinst du es so:

Sub Makro1()
With ActiveSheet.PageSetup
 .RightFooter = "&12&""Verdana""" & sh.Cells(1, 2).Value & "&8Seite &amp:stuck\_out\_tongue\_winking\_eye: von &N"
End With
ActiveSheet.PrintPreview
End Sub

Gruß
Reinhard

9

Der komplette RightFooter soll sowohl in Verdana als auch in
SG 8 ausgegeben werden. Inkl. Zeilenumbruch (ist ja eh schon
drinnen).

Hallo WB,

Sub Makro1()
With ActiveSheet.PageSetup
 .RightFooter = "&8&""Verdana""" & sh.Cells(1, 2).Value & Chr(10) & "Seite &amp:stuck\_out\_tongue\_winking\_eye: von &N"
End With
ActiveSheet.PrintPreview
End Sub

Gruß
Reinhard

10

Hall Reinhard,

genau so!
Vielen, lieben Dank für Deine kompetente Hilfe!
Was in meinen Versuchen gefehlt hat war das „&“ nach der „8“…

LG
WB