Thema Datum  Von Nutzer Rating
Antwort
22.02.2016 08:48:57 Christian
Solved
Blau Bedingte Formatierung Zellen Färben --> Neues Target
 22.02.2016 09:47:34 Gast83282
NotSolved
22.02.2016 10:24:49 Gast48896
NotSolved
22.02.2016 11:02:18 Gast83282
NotSolved
23.02.2016 16:28:57 Christian
NotSolved
23.02.2016 17:22:00 Gast25451
NotSolved
24.02.2016 13:45:54 Christian
NotSolved

Ansicht des Beitrags:
Von:
Gast83282		 Datum:
22.02.2016 09:47:34		 Views:
1651		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Formatierung Zellen Färben --> Neues Target
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
 Private Sub Worksheet_Change(ByVal Target As Range)
   
  With Target
   'Wenn Target aus mehr als 1 Zelle besteht, führe keine
   'Hintergrundformatierung aus
    'If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
    'geht auch so
     
    If .Cells.Count > 1 Then Exit Sub
     
   '?????????????????????????????????????????????
   'Außerhalb des Zellbereichs D20:E25 soll keine
   'bedingte Hintergrundfärbung ausgeführt werden
   '?????????????????????????????????????????????
    
   'Bereichprüfung
    If Application.Intersect(Range("F:F"), Target) Is Nothing Then Exit Sub
     
   'Auswahl
   Select Case .Address(0, 0)
    
      Case "F5"
         If .Value < 3 Then
            .Interior.Color = vbWhite
         ElseIf .Value < 10 Then
            .Interior.Color = vbYellow
         ElseIf .Value < 15 Then
            .Interior.Color = vbGreen
         ElseIf .Value = 15 Then
            .Interior.Color = vbCyan
         Else
            .Interior.Color = vbRed
         End If
     
      Case "F6"
         If .Value < 12 Then
            .Interior.Color = vbWhite
         ElseIf .Value < 26 Then
            .Interior.Color = vbYellow
         ElseIf .Value < 33 Then
            .Interior.Color = vbGreen
         ElseIf .Value = 58 Then
            .Interior.Color = vbCyan
         Else
            .Interior.Color = vbRed
         End If
  
    End Select
  End With
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
22.02.2016 08:48:57 Christian
Solved
Blau Bedingte Formatierung Zellen Färben --> Neues Target
 22.02.2016 09:47:34 Gast83282
NotSolved
22.02.2016 10:24:49 Gast48896
NotSolved
22.02.2016 11:02:18 Gast83282
NotSolved
23.02.2016 16:28:57 Christian
NotSolved
23.02.2016 17:22:00 Gast25451
NotSolved
24.02.2016 13:45:54 Christian
NotSolved