Anzeige
Archiv - Navigation
1480to1484
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

Zellen einfärben und Einfärbung wieder löschen

Zellen einfärben und Einfärbung wieder löschen
20.03.2016 11:54:33
jojue
Guten Tag geschätzte Forummitglieder
Kein grosser Spezialist in VBA und aber mit folgendem Problem!
Mit dem Eingeben einer Zahl möchte ich bestimmt definierte Zellen einfärben.
Dies konnte ich lösen.

  • Nun möchte ich, dass die bezeichneten Zellen nur eingefärbt werden, wenn ich die Zahl an einer ganz bestimmten Zelle eingebe
  • .

    Zum Beispiel:
    Ich gebe in Zelle B11 die Zahl 1 ein und möchte dann die Zellen H12-W12 und AB12-AU12 mit roter Farbe füllen.
  • Weiter möchte ich, wenn die eingegebene Zahl gelöst wird, die Einfärbung ebenfalls gelöst wird.


  • Mein Code:
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'Einfärben der Zellen nach Eingabe einer bestimmten Zahl auf alle Tabellenblätter
    Select Case Target
    'Zahl 1 = 08.00-12.00 und 13.00-17.30 Uhr
    Case 1
    Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'füllt Zellen H – W mit  _
    roter Farbe
    Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 'füllt Zellen AB – AU  _
    mit roter Farbe
    'Zahl 2 = 08.30-12.30 und 13.30-18.00 Uhr
    Case 2
    Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3 'füllt Zellen J – Y mit  _
    roter Farbe
    Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3 'füllt Zellen AD – AU  _
    mit roter Farbe
    'Zahl 3 = 09.30-13.00 und 14.00-19.00 Uhr
    Case 3
    Range(Target.Offset(0, 12), Target.Offset(, 25)).Interior.ColorIndex = 3 'füllt Zellen N – AA  _
    mit roter Farbe
    Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3 'füllt Zellen AF – AY  _
    mit roter Farbe
    End Select
    End Sub
    

    Danke für eure Unterstützung
    jojue

    1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Zellen einfärben und Einfärbung wieder löschen
    20.03.2016 11:56:16
    Hajo_Zi
    mache es ohne VBA, per bedingter Formatierung.

    Anzeige

    300 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige