Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbzuweisung mit Makrorekorder

Farbzuweisung mit Makrorekorder
18.06.2006 23: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
Anzeige
AW: Farbzuweisung mit Makrorekorder
19.06.2006 00: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

Anzeige
@Josef Ehrensberger
19.06.2006 07:08:09
Emilia
Danke Sepp,
das ist es :-))
Warum macht dies der Makrorekorder nicht!
ruß Emi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige