Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehr als 3 bedingte formatierung von feldern

mehr als 3 bedingte formatierung von feldern
16.01.2004 08:49:39
Harald
Hallo,
ich habe da ein Problem. Und zwar brauche ich für einige Felder mehr als 3 mögliche bedingte Feldformatierung. Ich weiß das es mit VBA geht. Drum könnte mir jemend den Code dafür zukommen lassen??? Ich nämlich keine ausreichende VBA Kenntnisse dafür.

Danke schon im voraus
MfG Harald

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehr als 3 bedingte formatierung von feldern
16.01.2004 08:52:50
Hajo_Zi
Hallo Harald
schaue auf meine Homepage unter VBA
http://home.media-n.de/ziplies/
Gruß Hajo
AW: mehr als 3 bedingte formatierung von feldern
16.01.2004 08:54:31
Ulf_MS
Dies in das jeweilige Tabellenblatt:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Farbe 1
If Range("B7") = 4 Then ' Die Range ist die Zelle mehrere Zellen Range("A1:A10")
With Selection.Interior
.ColorIndex = 6  ' Die nummer gibt die Farbe an
.Pattern = xlSolid
End With
End If
'Farbe 2
If Range("B7") = 4 Then ' Die Range ist die Zelle mehrere Zellen Range("A1:A10")
With Selection.Interior
.ColorIndex = 5  ' Die nummer gibt die Farbe an
.Pattern = xlSolid
End With
End If
'Farbe 3
If Range("B7") = 4 Then ' Die Range ist die Zelle mehrere Zellen Range("A1:A10")
With Selection.Interior
.ColorIndex = 4  ' Die nummer gibt die Farbe an
.Pattern = xlSolid
End With
End If
'Farbe 4
If Range("B7") = 4 Then ' Die Range ist die Zelle mehrere Zellen Range("A1:A10")
With Selection.Interior
.ColorIndex = 7  ' Die nummer gibt die Farbe an
.Pattern = xlSolid
End With
End If
'Farbe 5
If Range("B7") = 4 Then ' Die Range ist die Zelle mehrere Zellen Range("A1:A10")
With Selection.Interior
.ColorIndex = 2  ' Die nummer gibt die Farbe an
.Pattern = xlSolid
End With
End If
End Sub

mfg Ulf_MS
Anzeige
AW: mehr als 3 bedingte formatierung von feldern
16.01.2004 08:58:26
Harald
Danke euch. Ich werd das gleich mal ausprobieren. Wenn es nicht klappt schreib ich nochmal was:o)

MfG
Harald

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige