Farbzuweisung mit Makrorekorder

Forumthread: Farbzuweisung mit Makrorekorder

19.06.2006 01:45:52

Emilia

Hallo Ihr Weisen,
habe mal wieder eine Frage! Ich habe mit meinem Makrorekorder eine Farbbestimmung aufzeichnen lassen, nur ist hier das Problem obwohl ich ihm mehrere Faben zu jeder Zahl gezeit habe. Er immer nur schwarz nimmt.
Ich habe auch mit bedingter Formatierung gearbeitet, da habe ich aber nur drei Möglichkeiten.
Hier meine Mappe: https://www.herber.de/bbs/user/34452.xls
Könnte mir da einer Helfen, wo der Fehler steckt.
Gruß Emi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farbzuweisung mit Makrorekorder

19.06.2006 02:06:00

Josef
@Josef Ehrensberger

19.06.2006 09:08:09

Emilia

AW: Farbzuweisung mit Makrorekorder

19.06.2006 02:06:00

Josef

Hallo Emi!
Wenn du deinen aufgezeichneten Code ausführst, dann wird nur die letzte
Formatierung wirksam.
Kopiere den folgenden Code in das Modul der Tabelle.

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

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rngS As Range
Set rng = Range("B6:J35") ' Bereich der Wirksamkeit
If Not Intersect(Target, rng) Is Nothing Then
  For Each rngS In Target
    If Not Intersect(rngS, rng) Is Nothing Then
      Select Case rngS.Value
        Case "137" ' Zellwert
          rngS.Interior.ColorIndex = 43 ' Hintergrund
          rngS.Font.ColorIndex = 2 ' Schrift
        Case "167"
          rngS.Interior.ColorIndex = 5
          rngS.Font.ColorIndex = xlAutomatic
        Case "139"
          rngS.Interior.ColorIndex = 3
          rngS.Font.ColorIndex = xlAutomatic
        Case "631"
          rngS.Interior.ColorIndex = 15
          rngS.Font.ColorIndex = xlAutomatic
        Case "627"
          rngS.Interior.ColorIndex = 36
          rngS.Font.ColorIndex = xlAutomatic
        Case "Frei"
          rngS.Interior.ColorIndex = 1
          rngS.Font.ColorIndex = 2
        Case Else
          rngS.Interior.ColorIndex = xlNone
          rngS.Font.ColorIndex = xlAutomatic
      End Select
    End If
  Next
End If
Set rng = Nothing
End Sub

Gruß Sepp

@Josef Ehrensberger

19.06.2006 09:08:09

Emilia

Danke Sepp,
das ist es :-))
Warum macht dies der Makrorekorder nicht!
ruß Emi

Forumthread: Farbzuweisung mit Makrorekorder

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread