ColorIndex ändern

Forumthread: ColorIndex ändern

ColorIndex ändern

02.02.2006 22:27:48

Tristan

Hallo Ihr Lieben,
eine Frage, das Makro funktioniert.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Value = "x" Then
Target.Offset(0, -4).Interior.ColorIndex = 3
Target.Offset(0, -3).Interior.ColorIndex = 3
Target.Offset(0, -2).Interior.ColorIndex = 3
Target.Offset(0, -1).Interior.ColorIndex = 3
End If
End Sub

Nur soll wenn man ein "x" wieder entfernt/löscht
die Zelle sich wieder auf normal sprich ColorIndex = 2 stellen.
Wie mach ich das am einfachsten ?
Danke für die Hilfe !!!

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ColorIndex ändern

02.02.2006 22:38:56

Josef
AW: ColorIndex ändern

03.02.2006 09:06:18

Turan
AW: ColorIndex ändern

03.02.2006 09:15:45

Josef
AW: ColorIndex ändern

02.02.2006 22:40:54

Uduuh
AW: ColorIndex ändern

02.02.2006 22:42:33

Tristan
AW: ColorIndex ändern

03.02.2006 09:19:33

Turan

AW: ColorIndex ändern

02.02.2006 22:38:56

Josef

Hallo Tristan!
Z.B. so!

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 5 Then
    If .Value = "x" Then
      Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = 3
    Else
      Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = xlNone
    End If
  End If
End With
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: ColorIndex ändern

03.02.2006 09:06:18

Turan

Sepp ich hätte da noch eine frage an dich.
Dein Script ist super.was muss ich machen wenn ich z.b. x rot haben will
bei b = gelb t = türkis.

AW: ColorIndex ändern

03.02.2006 09:15:45

Josef

Hallo Turan/Tristan?!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 5 Then
    Select Case LCase(.Value)
      Case "x"
        Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = 3
      Case "b"
        Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = 6
      Case "t"
        Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = 7
      Case Else
        Range(.Offset(0, -4), .Offset(0, -1)).Interior.ColorIndex = xlNone
    End Select
  End If
End With
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: ColorIndex ändern

02.02.2006 22:40:54

Uduuh

Hallo,


Private Sub Worksheet_Change(ByVal Target As Range)
Dim intColor
If Target.Column = 5 Then
Select Case Target.Value
Case "x", "X"
intColor = 3
Case Else
intColor = xlNone ' oder auch 2 bei weiß
End Select
Range(Target.Offset(0, -4), Target.Offset(0, -1)).Interior.ColorIndex = intColor
End If
End Sub

Gruß ausm Pott
Udo

AW: ColorIndex ändern

02.02.2006 22:42:33

Tristan

Danke Ihr beiden, das ist genau das was ich gesucht habe !!!
Grüße aus dem Emsland
Tristan

AW: ColorIndex ändern

03.02.2006 09:19:33

Turan

Danke das hat mir auch geholfen!!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: ColorIndex ändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread