Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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!
'******************************

Anzeige
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!
'******************************

Anzeige
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ß aus’m 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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige