Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerfarbe mit makro

Registerfarbe mit makro
Markus
Hallo Excel-Gemeinde,
ich möchte die Farben eines Registers automatisch per makro ändern.
Hier eine Beispieldatei.

Die Datei https://www.herber.de/bbs/user/64340.xls wurde aus Datenschutzgründen gelöscht


Dank' euch schonmal
Grüße Markus

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

Betreff
Benutzer
Anzeige
AW: Registerfarbe mit makro
11.09.2009 20:05:02
Josef
Hallo Markus,
in das Modul der Tabelle1.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, lngColor As Long
  
  For Each rng In Range("B4:H4")
    If rng < 0 Then
      lngColor = vbRed
      Exit For
    End If
  Next
  
  If lngColor = 0 Then
    If Application.CountIf(Range("B4:H4"), "=0") = Range("B4:H4").Count Then lngColor = RGB(128, 128, 128)
  End If
  
  If lngColor = 0 Then lngColor = vbGreen
  
  Sheets("Tabelle2").Tab.Color = lngColor
End Sub

Gruß Sepp

Anzeige
AW: Registerfarbe mit makro
11.09.2009 20:45:22
Markus
Hallo,
dank' euch beiden für die Antworten.
Beide Lösung sind schon ganz gut.
@ Robert: Bei Deiner Lösung färbt sich dann Tabelle 1 grün. Farbwechsel sollte nur in Tabelle2 erfolgen.
@ Josef Ehrensberger: Deine Lösung paßt fast. Die Tabelle2 sollte grau werden wenn weder positiv noch negativ; also null oder leer. wenn du mir da noch helfen könntest, wäre das super.
AW: Registerfarbe mit makro
11.09.2009 20:48:45
Josef
Hallo Markus,
dann so.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, lngColor As Long
  
  For Each rng In Range("B4:H4")
    If rng < 0 Then
      lngColor = vbRed
      Exit For
    End If
  Next
  
  If lngColor = 0 Then
    If Application.Sum(Range("B4:H4")) = 0 Then lngColor = RGB(128, 128, 128)
  End If
  
  If lngColor = 0 Then lngColor = vbGreen
  
  Sheets("Tabelle2").Tab.Color = lngColor
End Sub

Gruß Sepp

Anzeige
AW: Registerfarbe mit makro
11.09.2009 21:07:11
Markus
Hallo ihr beiden,
also Sepp's variante paßt jetzt 100%! Vielen Dank!
Danke auch an Dich, Robert
Grüße und schönes Wochenende euch Beiden
AW: Registerfarbe mit makro
11.09.2009 20:51:37
robert
hi,
der reiter tabelle1 war nur ein test, kannst du per hand zurücksetzen
gruß
robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige