Font Size über VBA einstellen
Manuel Keller
Ich möchte über VBA die Schriftgröße einiger Zellen verändern.
With Worksheets("1.Woche").Range("A15:K39")
.Font.Size = 10
End With
Ich bekomme aber den Laufzeitfehler "1004" "Die Size-Eigenschaft des
Font-Objekts kann nicht festgelegt werden".
Was läuft da falsch?
Mfg
Manuel Keller
Daniel Schmitz
ich kann Dein Problem im Moment nicht nachvollziehen.
Ich hab mir eine Tabelle erstellt in der ich es probiert habe
und es klappt mit folgenden Zeilen reibungslos die Schrift-
größe zu ändern:
With Worksheets("Tabelle1").Range("A6:B39")
.Font.Size = 11
End With
Was steht denn in den Zellen? Kann es vielleicht daran
liegen? Sind da vielleicht verbundene Zellen drunter?
(Obwohl das bei mir auch keine Probleme macht)
Ich versteh es allso auch nicht so wirklich.....
Gruss
Daniel
"Manuel Keller" <Manuel...@t-online.de> schrieb im Newsbeitrag
news:uAFEZOGPCHA.2680@tkmsftngp09...
Manuel Keller
das komische daran ist:
With Worksheets("1.Woche").Range("B14")
.Font.Bold = True
End With
funktioniert!
Fett kann Ich die Schrift der Zelle machen, nur wenn Ich die Größe ändern
will
bekomm Ich den Laufzeitfehler 1004!
Mfg
Manuel Keller
ulrich weigel
>-----Originalnachricht-----
sind die anderen Zellen geschützt und der Blattschutz
aktiviert?
Grus
Ulrich
Norbert Schmitz
"Manuel Keller" <Manuel...@t-online.de> schrieb im Newsbeitrag
news:edhi9$GPCHA.1320@tkmsftngp09...
welche Schriftart verwendest du denn? Welche Excel-Version?
Ich habe etwas probiert und kann deinen Fehler auch nicht
nachvollziehen. Vielleicht gibst du uns noch etwas mehr Hinweise.
Bis später
Norbert
Manuel Keller
"ulrich weigel" <mdlle...@aol.com> schrieb im Newsbeitrag
news:0ce501c23c73$4a8549f0$19ef2ecf@tkmsftngxa01...
>Hallo Manuel,
>sind die anderen Zellen geschützt und der Blattschutz
>aktiviert?
Habe Ich schon kontrolliert, kein Zellschutz/Blattschutz!
Ich trete momentan etwas auf der Stelle...
Mfg
Manuel
Manuel Keller
Ich verwende als Schriftart "Arial", Office 97(Excel 8.0)
"Norbert Schmitz" <n.sc...@gmx.de> schrieb im Newsbeitrag
news:eTVnPQHPCHA.2176@tkmsftngp09...
> Hallo Manuel,
> welche Schriftart verwendest du denn? Welche Excel-Version?
> Ich habe etwas probiert und kann deinen Fehler auch nicht
> nachvollziehen. Vielleicht gibst du uns noch etwas mehr Hinweise.
Mfg
Manuel Keller
stefan onken
es liegt evtl daran, dass dein Code im Modul der Tabelle
bei CommandButton_Click liegt. Kopiere ihn in ein neues
Modul als Sub() und rufe diese von dem Button aus auf.
Gruß
stefan
>-----Originalnachricht-----
>.
>
Manuel Keller
>es liegt evtl daran, dass dein Code im Modul der Tabelle
>bei CommandButton_Click liegt. Kopiere ihn in ein neues
>Modul als Sub() und rufe diese von dem Button aus auf.
Ich habe das ganze in einem Modul, Font.Bold funktioniert auch. Nur z.B.
Font.Size,Font.Name funktioniert nicht....
Public Function ChangeFontSize()
Worksheets("1.Woche").Activate
Worksheets("1.Woche").Cells(14, 2).Font.Bold = True '<funktioniert
noch,Schrift wird Fett
Worksheets("1.Woche").Cells(14, 2).Font.Size = 10 '<hier kommt der
Laufzeitfehler 1004!
Msgbox Worksheets("1.Woche").Cells(14, 2).Font.Size 'lesend kann Ich auf
das Font Objekt zugreifen(Fontgröße wird ausgegeben!)
End Function
Ich habe es auch über das Range Objekt probiert mit dem selben Ergebnis :-((
Mfg
Manuel
Thomas Ramel
Manuel Keller schrieb:
>
> Ich habe das ganze in einem Modul, Font.Bold funktioniert auch. Nur z.B.
> Font.Size,Font.Name funktioniert nicht....
>
> Public Function ChangeFontSize()
>
> Worksheets("1.Woche").Activate
>
> Worksheets("1.Woche").Cells(14, 2).Font.Bold = True '<funktioniert
> noch,Schrift wird Fett
> Worksheets("1.Woche").Cells(14, 2).Font.Size = 10 '<hier kommt der
> Laufzeitfehler 1004!
> Msgbox Worksheets("1.Woche").Cells(14, 2).Font.Size 'lesend kann Ich auf
> das Font Objekt zugreifen(Fontgröße wird ausgegeben!)
>
> End Function
>
> Ich habe es auch über das Range Objekt probiert mit dem selben Ergebnis :-((
In diesem Fall ist mehr tatsächlich mehr ;-)
Bisher sind wir davon ausgegangen, dass Du in einer Sub arbeitest; hier
stellt es cich heruas, dass Du die Schrift aus einer Function heraus
veränder willst. Das funktioniert nicht!
Eine Funktion gibt einen Rüpckgabewert an die Zelle zurück, aus der sie
aufgerufen wurde und kann/darf keine Zell-Inhalte und -Formate
verändern.
Realisiere das gewünschte in einer Sub und es wird funktionieren.
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Manuel Keller
Ich habe den Fehler gefunden.
....
ActiveCell.Select'<<<<<<<
Worksheets("1.Woche").Cells(14, 2).Font.Size = 10
......
Und das funktioniert bei mir auch in einer/dieser Funktion!
Mfg
Manuel Keller
"Thomas Ramel" <Schle...@ggs.ch> schrieb im Newsbeitrag
news:3D4E7C8E...@ggs.ch...
Grüezi Manuel
Thomas Ramel
Manuel Keller schrieb:
>
> Hallo Thomas,
>
> Ich habe den Fehler gefunden.
>
> ....
> ActiveCell.Select'<<<<<<<
> Worksheets("1.Woche").Cells(14, 2).Font.Size = 10
> ......
>
> Und das funktioniert bei mir auch in einer/dieser Funktion!
Die Du dann aber nur aus VBA heraus aufrufst?! Aus einer Zellen heraus
funktioniert es nicht.
Aber ohne .Select (das ist 'Teufelszeug und in den allermeisten Fällen
nicht notwendig) geht es ebenfalls:
Public Function ChangeFontSize()
Worksheets("1.Woche").Activate
Worksheets("1.Woche").Cells(14, 2).Font.Bold = True '<Schrift wird
Fett
Worksheets("1.Woche").Cells(14, 2).Font.Size = 16 '<Schrift wird 16
Punkt
MsgBox Worksheets("1.Woche").Cells(14, 2).Font.Size 'Fontgröße wird
ausgegeben!
End Function
Obiges funktioniert ohne Probleme. (xl2000, NT4, SP6a)
Manuel Keller
>Die Du dann aber nur aus VBA heraus aufrufst?! Aus einer Zellen heraus
>funktioniert es nicht.
Wird nur aus VBA aufgerufen, das ist richtig.
>Aber ohne .Select (das ist 'Teufelszeug und in den allermeisten Fällen
>nicht notwendig) geht es ebenfalls:
scheinbar gehört mein Fall nicht zu den allermeisten Fällen :-)))
>Public Function ChangeFontSize()
>Worksheets("1.Woche").Activate
>Worksheets("1.Woche").Cells(14, 2).Font.Bold = True '<Schrift wird
>Fett
>Worksheets("1.Woche").Cells(14, 2).Font.Size = 16 '<Schrift wird 16
>Punkt
>MsgBox Worksheets("1.Woche").Cells(14, 2).Font.Size 'Fontgröße wird
>ausgegeben!
>End Function
>Obiges funktioniert ohne Probleme. (xl2000, NT4, SP6a)
Dieses Konstrukt funktioniert bei mir ohne "ActiveCell.Select" nicht.(Office
97,Win9X)
Weis der Gaier wieso...
Mfg
Manuel Keller
Thomas Ramel
Manuel Keller schrieb:
>
> >Aber ohne .Select (das ist 'Teufelszeug und in den allermeisten Fällen
> >nicht notwendig) geht es ebenfalls:
>
> scheinbar gehört mein Fall nicht zu den allermeisten Fällen :-)))
Es scheint so ;-)
> >Public Function ChangeFontSize()
>
> >Worksheets("1.Woche").Activate
>
> >Worksheets("1.Woche").Cells(14, 2).Font.Bold = True '<Schrift wird
> >Fett
> >Worksheets("1.Woche").Cells(14, 2).Font.Size = 16 '<Schrift wird 16
> >Punkt
> >MsgBox Worksheets("1.Woche").Cells(14, 2).Font.Size 'Fontgröße wird
> >ausgegeben!
>
> >End Function
>
> >Obiges funktioniert ohne Probleme. (xl2000, NT4, SP6a)
>
> Dieses Konstrukt funktioniert bei mir ohne "ActiveCell.Select" nicht.(Office
> 97,Win9X)
> Weis der Gaier wieso...
Na wegen xl97 eben. Da scheint die Eigenschaft nicht korrekt
angesprochen zu werden.
Hast du es auch schon mal in einer neuen, leeren Mappe versucht? Das
wirkt manchmal Wunder.