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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige