Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1504to1508
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

Schrift per Makro im Bereich ändern

Schrift per Makro im Bereich ändern
14.07.2016 10:34:39
Walter
Guten Morgen,
ich möchte gern die Schriftart im Bereich ändern, leider haben diese Zeilen
nur Fehlermeldung produziert.
ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Select
With Selection
.Name = "Calibri"
.Size = 10
End With
mfg
walter wb

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schrift per Makro im Bereich ändern
14.07.2016 10:40:22
Bernd
Hallo Walter,
zeichne doch mit dem Makrorecorder die Prozedur auf, dann siehst Du wie der Code aussehen sollte.
mfg Bernd

AW: Schrift per Makro im Bereich ändern
14.07.2016 10:41:13
Michael
Hallo Walter!
haben diese Zeilen nur Fehlermeldung produziert.
Weil Du keine korrekten Befehle nutzt.
Selection.Name gibt es so nicht.
Wenn Du Dir die Aktion vorher mit dem Makro-Rekorder aufzeichnest, findest Du schnell heraus, wie das lauten muss:
Range("B1:B9,C12:C20").Select
Range("C12").Activate
With Selection.Font
.Name = "Calibri"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Das noch gesäubert könnte dann so lauten:
Sub Makro1()
With ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Font
.Name = "Calibri"
.Size = 10
End With
End Sub
LG
Michael

Anzeige
AW: Schrift per Makro im Bereich ändern
14.07.2016 10:44:52
Armin
Hallo Walter,
versuche mal
with selection.font
Gruß Armin

Danke ! -)
14.07.2016 10:46:26
Walter
Hallo zusammen,
danke, Beispiel von Armin klappt !
mfg
walter wb

AW: Danke ! -)
14.07.2016 10:51:59
Werner
Hallo Walter,
du solltest dir angewöhnen zu allen Vorschlägen ein Feedback zu geben und nicht einen Teil der Helfer zu "ignorieren".
Der Vorschlag von Michael
Sub Makro1()
With ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Font
.Name = "Calibri"
.Size = 10
End With
End Sub
funktioniert nämlich auch. Er hat noch den Vorteil, dass er ohne die "Selectiererei" auskommt, die in den meisten Fällen unnötig ist.
Gruß Werner

Anzeige
@ Werner, jetzt...
14.07.2016 10:56:00
Bernd
Hi Werner,
hast aber auch auf mich vergessen :-)
Nix für Ungut,
lg bernd

AW: @ Werner, jetzt...
14.07.2016 11:03:05
Werner
Hallo Bernd,
nö, hab ich nicht ich habe ja geschrieben zu allen Vorschlägen.
Was ich vergessen habe war zu schreiben: Der Vorschlag von Michael z.B.:
Gruß und einen schönen Tag :-)
Werner
Danke ! -)
16.07.2016 10:05:15
Walter
Hallo zusammen,
danke, Beispiel von Armin klappt !
mfg
walter wb
Danke ! -)
16.07.2016 10:21:18
Walter
Hallo zusammen,
danke, Beispiel von Armin klappt !
mfg
walter wb

24 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige