Thema Datum  Von Nutzer Rating
Antwort
Rot von aktiver Zelle aus die 3 nächsten Spalten markieren
21.05.2022 22:05:54 Pit
NotSolved
21.05.2022 22:27:01 ralf_b
Solved
22.05.2022 22:02:10 Gast21542
NotSolved

Ansicht des Beitrags:
Von:
Pit
Datum:
21.05.2022 22:05:54
Views:
60
Rating: Antwort:
  Ja
Thema:
von aktiver Zelle aus die 3 nächsten Spalten markieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot von aktiver Zelle aus die 3 nächsten Spalten markieren
21.05.2022 22:05:54 Pit
NotSolved
21.05.2022 22:27:01 ralf_b
Solved
22.05.2022 22:02:10 Gast21542
NotSolved