Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: Bedingte Formatierung mehrere

Bedingte Formatierung mehrere
13.04.2007 18:56:00
heinzel
Abend zusammen
Habe eine Excel Mappe in der ich in verschiedenen Spalten aus einer Gültikeits Liste Div. Einträge auslesen kann.
Nun möchte ich bei einigen ca. 9 Stück eine Bedingte Formatierung haben.
Habe im Forum einen Code gefunden und meinen Bedürfniessen mal angepasst, wiel aber noch nicht.
Im Modul1 habe ich alles beschrieben wie ich es gerne hätte.
Da es für Euch sicher einfacher ist stelle ich die Mappe besser mal hier rein.
Schon mal vielen dank und Gruss von
heinzel
https://www.herber.de/bbs/user/41747.xls

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mehrere
15.04.2007 15:45:40
fcs
hallo heinzel,
deine ZIP-Datei hat auch irgendwelche Macken.
Ich kann sie nach dem Herunterladen nicht extrahieren.
Gruß
Franz

AW: Bedingte Formatierung mehrere
15.04.2007 18:57:16
Josef
Hallo Heinzel(männchen),
diesen Code in "DieseArbeitsmappe" kopieren.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range

On Error Resume Next
Application.EnableEvents = False

For Each rng In Target
    If rng.Validation.Type = 3 Then
        With rng
            Select Case .Value
                Case "Montagsicherung"
                    .Font.ColorIndex = 4 'möchte ich Schriftfarbe grün und kursiv
                    .Interior.ColorIndex = xlNone
                Case "Wochensicherung 1"
                    .Font.ColorIndex = 5 'möchte ich Schriftfarbe blau
                    .Interior.ColorIndex = xlNone
                Case "Wochensicherung 2"
                    .Font.ColorIndex = 5 'Schriftfarbe blau
                    .Interior.ColorIndex = xlNone
                Case "Wochensicherung 3"
                    .Font.ColorIndex = 5 'Schriftfarbe blau
                    .Interior.ColorIndex = xlNone
                Case "Wochensicherung 4"
                    .Font.ColorIndex = 5 'Schriftfarbe blau
                    .Interior.ColorIndex = xlNone
                Case "Monatsicherung 1"
                    .Font.ColorIndex = 46 'möchte ich Schriftfarbe orang und fett
                    .Interior.ColorIndex = 15 'möchte ich grau
                Case "Monatsicherung 2"
                    .Font.ColorIndex = 18 'Schriftfarbe violet und fett
                    .Interior.ColorIndex = 15 'grau
                Case "Monatsicherung 3"
                    .Font.ColorIndex = 41 'Schriftfarbe blau und fett
                    .Interior.ColorIndex = 15 'grau
                Case "Monatsicherung 4"
                    .Font.ColorIndex = 3 'Schriftfarbe rot und fett
                    .Interior.ColorIndex = 15 'grau
                Case Else
                    .Font.ColorIndex = xlAutomatic
                    .Interior.ColorIndex = xlNone
            End Select
        End With
    End If
Next

ErrExit:
Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: Bedingte Formatierung mehrere
15.04.2007 20:56:30
heinzel
Danke Sepp für den Code
Den Code habe ich nun in der Arbeitsmapp im Modul, wenn ich aber nun eine auswahl anwähle passiert noch nichts.
Brauch schon noch weiter Hilfe.
Gruss
heinzel

Wer lesen kann....
15.04.2007 21:05:21
Josef
Hallo nochmal
... ist klar im Vorteil.
Ich hatte doch geschrieben "kopiere den Code in DieseArbeitsmappe"
In einem normalen Modul kann dieser Code nicht laufen.
Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß Sepp

Anzeige
AW: Wer lesen kann....
15.04.2007 22:37:00
heinzel
Abend Sepp
Ja war mein Fehler¨!
Funktioniert soweit gut.
Muste noch bei einer Zeile Kursif und bei 4 Zeilen Fett Ergänzen (Siehe unten).
Gibt es eine möglichkeit wenn ich eine auswahl getroffen hatte in einer Zelle und ich aber später in der gleichen Zelle eine ander auswahl treffen möchte, Beispiel Wochensicherun 2: das es Fett oder Kursif auch wieder ausschaltet.
Bei den Hintergrund farben oder auch bei den Schrift farben funktionieren sonst alles super!
Case "Montagsicherung"
.Font.ColorIndex = 4 'Schriftfarbe grün
.Font.Italic = True 'kursif
.Interior.ColorIndex = xlNone
Case "Monatsicherung 1"
.Font.ColorIndex = 46 'Schriftfarbe orang
.Font.Bold = True 'fett
.Interior.ColorIndex = 15 'hintergrund grau
Case "Wochensicherung 2"
.Font.ColorIndex = 5 'Schriftfarbe blau
.Interior.ColorIndex = xlNone
Danke und Gruss
heinzel

Anzeige
AW: Wer lesen kann....
16.04.2007 21:05:00
Josef
Hallo,

Case Else
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
.Font.Italic = False
.Font.Bold = False


Gruß Sepp

AW: Danke für die Hielfe
18.04.2007 11:16:05
heinzel
Gruss
heinzel

311 Forumthreads zu ähnlichen Themen

Bedingte Formatierung in Abhängigkeit mehrerer Fel
Thomas

hallo,
ich habe bei einer automatischen formatierung ein paar probleme.
meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
nun sollen die jeweiligen Zeilen anhand de...
11.11.2008 11:56:34
Thread-ID: 1023497
6 Beiträge
Anzeige
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
alles bis auf bedingte formatierung kopieren
Tobias

Ahoi Super-Gurus!
WksRemote.Cells(i, 2).Copy Destination:=WksLocal.Cells(i, 2)
hiermit kopiere ich von zelleninhalte & kommentare von blatt 1 zu blatt 2,
bin jetzt aber draufgekommen das mir auch die bedingten formatierungen mitkopiert werden.
wie kann ich das verhindern?
13.03.2009 22:04:53
Thread-ID: 1060055
6 Beiträge
Anzeige
Zeitleiste via bedingte Formatierung , Intervalle
Xaver

Hallole an die Community.
Ich steh vor einem grossen Problem.
Ich möchte mit den bedingten Formatierungen eine excel Zeiteinteilungstabelle erstellen.
Die Tabelle ist in Jahre und jeweils Monate eingeteilt und besteht aus
a) Vorgängen mit anfangsdatum und einer Dauer in Monaten...
06.04.2009 14:22:15
Thread-ID: 1067095
7 Beiträge
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
bedingte formatierung kopieren
reinhardt

hallo forum,
ich habe in einem TB einen Kalender angelegt.
Nun möchte gerne per bedingter Formatierung die Wochenenden grau einfärben, sodas bei einem Monatswechsel dieses immer gleich automatisch angezeigt wird.
Dazu habe ich die Formel =ODER($M$3=1;$M$3=7) eingegeben.
Ich kan...
14.10.2009 15:13:42
Thread-ID: 1109602
2 Beiträge
Bedingte Formatierung über mehrere Zeilen
Chris

Hi,
ich möchte Felder einer Zeile gelb einfärben, sobald in der gleichen Spalte in einer der drei darüberliegenden Zeilen eine Zahl steht.
Z.B. C13 wird gelb sobald in C10:C12 eine Zahl steht. Mit der bedingten Formatierung
Formel ist = IstZahl(C10:C12)
geht das irgendwie nur f...
07.12.2009 09:21:02
Thread-ID: 1122125
4 Beiträge
Bedingte Formatierung weiter kopieren | Herbers Excel-Forum
Steve
Hallo Leute,
ich habe ein Problem mit einer Tabelle mit bedingter Formatierung.
Hier die Beispieltabelle:
https://www.herber.de/bbs/user/67032.xlsx
Die bedingte Formatierung funktioniert soweit, jedoch wenn ich in diese Tabelle neue Zeilen einfüge (damit die bedingte Formatierung...
07.01.2010 11:40:51
Thread-ID: 1127806
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
5
4
5
3
6
1
1
3
2
4
7
6
9
4
6
3
2
4
7
11
3
4
16
2