|
Hallo,
ich möchte eine bedingte Formatierung für 4 Spalten per VBA setzen. Dazu suche ich nach einem feststehenden Begriff, der mir die Zelle in der 1. Spalte aktiviert. Von dieser aus sollen nun die Spalte der aktiven Zelle sowie die 3 Spalten daneben für die bedingte Formatierung markiert werden.
Von der gefundenen und aktivierten Zelle ( aus kann ich momentan nur diese eine Spalte markieren. In meinem Beispiel wird also in Zeile A nach dem Begriff "Jahr" gesucht und danach die komplette Spalte, die den Begriff enthält, markiert.
Range("A:A").Select
Cells.Find(What:="Jahr", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.EntireColumn.Select
Wie kann ich aber den Bereich der Markierung auf die Spalte mit dem gefundenen Begriff und die 4 Spalten rechts daneben ausweiten?
VG
Pit
|