Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schriftart in Bereich anpassen

Schriftart in Bereich anpassen
13.03.2017 08:55:06
Jens
Hallo,
irgendwie funktioniert mein Code nicht.
Ich möchte in einem definierten bereich Ab Zeile 13 Spalte A bis X die Schrift art und die Schriftgröße definieren. Dies soll bis zur letzten beschriebenen Zeile erfolgen.
Sub schriftart()
Dim lr As String
lr = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
With Range(Cells(13, "A"), Cells(lr, "X"))
.Name = "Century Gothic"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Wie muss der Code richtig lauten?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftart in Bereich anpassen
13.03.2017 09:04:27
Crazy
Hallo
das habe ich so getestet
Sub schriftart()
Dim lr As Long
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Range(Cells(13, "A"), Cells(lr, "X")).Font
.Name = "Century Gothic"
.Size = 11
End With
End Sub
MfG Tom
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige