Bedingte Rahmen-Formatierung mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BedingteRahmen() Columns("B:P").FormatConditions.Delete Cells(10, 1).Select With Range("B10:B65536").FormatConditions.Add(Type:=xlExpression, Formula1:="=$B10>=1") With .Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With With Range("C10:P65536").FormatConditions.Add(Type:=xlExpression, Formula1:="=$B10>=1") With .Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With End Sub

Danke Erich!
Ich muss mich zunächst entschuldigen: Ich war ein wenig durcheinander und habe die falsche Zeilenzahl genannt, bei der die bedingte Rahmenformatierung beginnen soll. Nicht Zeile 10, sondern Zeile 6.
Ich habe mir daraufhin Dein Skript vorgenommen und einfach verändert, weil es nach meiner Logik dann klappen müsste:


Sub BedingteRahmen()
Columns("B:P").FormatConditions.Delete
Cells(6, 1).Select      '###MACHE ICH HIER DEN GEDANKENFEHLER?###
With Range("B6:B65536").FormatConditions.Add(Type:=xlExpression, _
Formula1:="=ISTZAHL($B6)*($B6>=1)")
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
With Range("C6:P65536").FormatConditions.Add(Type:=xlExpression, _
Formula1:="=ISTZAHL($B6)*($B6>=1)")
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

Aber der Code arbeitet nicht ab Zeile 6, sondern nach wie vor ab Zeile 10 ...und sitze ich hier und reibe mir die Augen!!!
Excel geschlossen und neu gestartet, den Rechenr einmal neu gestartet ...aber es ändert sich nix?!?
Gruß
Lenhard

Moin Erich!
Als ich meinen letzten Beitrag geschrieben hatte, hatte ich auch so ein merkwürdiges Gefühl. Und dann wurde es mir klar: Das Makro hat mir einfach die Handarbeit abgenommen über "Format" und "Bedingte Formatierung" zu gehen, um so in mühsamer Kleinarbeit alles einzeln einzurichten. Also: Ich brauche es nur einmal ausführen und das wars!
Die Kontrolle über "Format" und "Bedingte Formatierung" bestätigte das.
Dieses Makro werde ich mit Sicherheit nicht "wegschmeißen", da ich genau diese Einrichtung immer mal wieder gebrauche. Überhaupt ist es sehr schlau, so Makros für sich arbeiten zu lassen.
Nochmals: Vielen Dank!
Darf ich Dich an dieser Stelle bitten zu folgendem neuen Beitrag von mir zu gehen
https://www.herber.de/forum/messages/866796.html
...und mir da noch mal einen Tip zu geben. Danke! Aber bitte ohne eine "Gefangennahme"... ...nun in einer ComboBox wenn ich "Abbrechen" will! ;-) ...kleiner Scherz!!
Gruß
Lenhard

Beliebteste Forumthreads (12 Monate)

Bedingte Rahmen-Formatierung mit VBA

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Rahmen-Formatierung mit VBA

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread