Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1164to1168
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

Bedingte Formatierung mit VBA (ohne Markierung?)

Bedingte Formatierung mit VBA (ohne Markierung?)
Peter
Guten Abend, guten Morgen
Ich will meinem Range "obenlinks:untenrechts" eine bedingte Formatierung zuweisen. Dabei sollen pro Spalte die ersten 5 und die zweiten 5 Ränge grün resp. gelb markiert werden.
Untenstehender Code weist nur die korrekten Bezüge zu, wenn der bedingt zu formatierende Bereich markiert ist.
Muss ich dies im Code vorsehen (wenn ja, wie) oder gibt es eine elegantere Variante?
Ich habe noch eine Beispieldatei hochgeladen: https://www.herber.de/bbs/user/70472.xls
Danke für jeden Hinweis.
Gruss, Peter
Sub Bedingte_Formatierung_zuweisen()
ThisWorkbook.Activate
'Bedingte Formatierung, 1. Zelle oben links (E9)
'"=Rang(E9,E$9:E$238) 

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
merke Dir doch die aktive ZellAdresse ...
07.07.2010 07:46:26
Matthias
Hallo Peter
Sub Bedingte_Formatierung_zuweisen()
Dim Rng As String 'Variable deklarieren
'Bedingte Formatierung, 1. Zelle oben links (E9)
'"=Rang(E9,E$9:E$238) Rng = ActiveCell.Address(0, 0)     'Adresse merken
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Range("obenlinks").Activate        'E9 akivieren
Sheets("Auswertung").Cells.FormatConditions.Delete
With Range("obenlinks:untenrechts")
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=RANG(" & Range("obenlinks").Address(0, 0) & ";" & Range("obenlinks").Address(1, 0) & ":"  _
& Range("untenlinks").Address(1, 0) & ") Range(Rng).Activate               'zurück zur gemerkten Adresse
Application.ScreenUpdating = True 'Bildschirmaktualisierung an
End Sub
https://www.herber.de/bbs/user/70474.xls
Gruß Matthias
Anzeige
AW: merke Dir doch die aktive ZellAdresse ...
07.07.2010 09:10:47
Peter
Hallo Matthias
Danke für die Antwort und den guten Vorschlag.
Gruss, Peter

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige