Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro mit bedingter Formatierung

Forumthread: Makro mit bedingter Formatierung

Makro mit bedingter Formatierung
Christian
Hallo,
beim Ausführen folgendes Codes erhalte ich immer die Fehlermeldung 'Laufzeitfehler 1004: Die Bold-Eigenschaft des Font-Objekts kann nicht festgelegt werden'.
...
Columns("AA:AA").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=1", Formula2:="=1000000"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.TintAndShade = 0
End With
...
Woran liegt das ?
Viele Grüße
Christian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro mit bedingter Formatierung
21.10.2009 18:11:59
hary
Hi Christian
so funzt es bei mir.

With Selection
.Characters.Font.Bold = True
.Characters.Font.Italic = False

gruss hary
hilft's?
Das dürfte nicht dasselbe sein! Gruß owT
21.10.2009 19:02:49
Luc:-?
:-?
AW: Makro mit bedingter Formatierung
21.10.2009 19:26:33
Gerd
Hallo Christian,
ich habe mal auskommentiert, was meine alte Kiste nicht packt bzw. unnötig ist.
Sub a()
With Columns("AA:AA")
.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=1", Formula2:="=1000000"
'Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Bold = True
.Italic = False
'.TintAndShade = 0
End With
End With
End Sub
Gruß Gerd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige