Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerfarbe mit makro

Forumthread: 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
Anzeige

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.
Anzeige
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
;

Forumthreads zu verwandten Themen

Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Anzeige
Bienenwabe mit Farben auslesen
Pepi

Halle Excel-Gemeinde
Gibt es eine Möglichkeit die Farbnummern von der Bienenwabe (Menu-Schriftart-Ausfüllen-weitere Farben) rauszuschreiben (super wäre natürlich eine solche Bienenwabe zu erstellen) damit diese Farben im VBA-Code weiterverwendet werden können. Bis jetzt habe ich die 56 Farb...
15.01.2009 17:24:00
Thread-ID: 1040242
16 Beiträge
Zellfarbe mit makro A, manuell B
Tobias

Hallo allerseits
ich ändere den farbwert einer zelle mit:
Cells(i, 2).Font.ColorIndex = 3
Leider bleibt die zelle immer noch auf 3, wenn ich später manuell etwas in Spalte B eintrage.
hätte gerne bei manuellem Eintrag den wert 1
Wie kann man das lösen?
Beste Grüsse,
...
27.02.2009 21:55:07
Thread-ID: 1054943
5 Beiträge
Pivottable formatieren mit verschiedenen Farben
Rita

Hallo,
ich versuche gerade, eine PivotTable per VBA zu formatieren.
Wie kann ich z.B. die Spalte mit der Gesamtsumme in einer bestimmten Farbe anzeigen? Ich habe schon herausgefunden, dass es wohl mit xlGrandTotalColumn zu tun hat, bekome es aber nicht hin.
Danke Rita
28.07.2009 17:55:59
Thread-ID: 1092020
2 Beiträge
Balkendiagramm mit verschiedenen Farben
Räber

Hallo zusammen
Ich habe ein Problem mit einem Excel-Diagramm, welches ich nicht den Anforderungen entsprechend erstellen kann. Folgende Ausgangslage:
1. Ich habe ein Excel-Sheet, welches per SQL mit Daten abgefüllt wird.
2. Es gibt diverse Spalten, für das Diagramm ist die Spalte "K...
23.09.2009 15:41:32
Thread-ID: 1104938
2 Beiträge
bestimmte Hintergrundfarbe auf neutral
Volker

Hallo liebe Excelgemeinde, ich habe einen Code, in den in einer Spalte alle Hintergrundfarben gelöscht wird
Farbmarkierung in Spalte D wird gelöscht
Columns("D:D").Interior.ColorIndex = xlNone
Wie müsste der Code heissen wenn nur bestimmte Farben z.B. Rot (3) und Grün (43) gelöscht...
22.11.2009 16:35:05
Thread-ID: 1119186
7 Beiträge
Anzeige
Farbeintrag mittels VBA | Herbers Excel-Forum
nuernberg@esm-ept.de
Sehr geehrte Forumgemeinde,
wie kann ich Einträge die in diesem VBA Programm gemacht werden mit einer Textfarbe makieren??? Private Sub CommandButton2_Click() Dim XZeile As Long If TextBox1 = "" Then Exit Sub If ComboBox1.ListIndex = 0 Then XZeile = [A65536].End(xlUp).Row + 1 Else XZeile = Comb...
14.01.2010 13:04:24
Thread-ID: 1129883
3 Beiträge
Anzeige
Textfarbe in Kommentar mit VBA ändern? | Herbers Excel-Forum
Kasimir
Hallo Leute,
wie aus der Überschrift ja ersichtlich, möchte ich per VBA Texte in einem Kommentarfeld formatieren. Vorrangig möchte ich die Texte farblich verändern. Leider zeichnet mir der Makrorecorder dies nicht auf. Geht das trotzdem?
Danke und Gruß,
Kasimir
14.01.2010 13:59:43
Thread-ID: 1129913
10 Beiträge
Combobox Einträge mit abwechselnder Farbe
TOM

Guten Morgen zusammen
Ich habe in meinem USerform eine Combobox mit 15 Einträgen die ich gerne abwechslend farblich mit grün/weiss zu r besseren Übersicht anzeigen lassen möchte. Geht so was und wenn ja wie!?
Besten Dank für einen Tipp
Gruss und schöner Tag
TOM
16.04.2010 07:29:40
Thread-ID: 1152146
3 Beiträge
Diagramm mit 2 Farben
Stefan

Hallo Zusammen,
habe ein Excelproblem, bei dem ich nicht weiß wie ich es lösen kann...
Die Aufgabe hört sich recht einfach an, ich brings trotzdem nicht auf die Reihe...
Z.B.
A / B / C
Arbeit 1 / 5 min / Tätigkeit
Arbeit 2 / 7 min / Wartezeit
Arbeit 3 / 2 min / Tätig...
22.09.2010 00:04:17
Thread-ID: 1178739
3 Beiträge
VBA-Code für Bereich mit Farbe ausfüllen
Karsten

Hallo,
könnte mir bitte jemand beim Bau des Codes helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Zelle.Value = "Blfl." Then
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts mit
Color...
04.10.2010 09:15:07
Thread-ID: 1180527
7 Beiträge
Kreisdiagramm: selber Eintrag mit selber Farbe
Grabner

Hallo,
ich habe hier 3 Kreisdiagramme. Die Kreisdiagramme haben größtenteils die gleichen Einträge. Meistens verschieben sich die Positionen der Einträge da sie in der Tabelle absteigend nach Werten sortiert sind. Die automatische Füllung vergibt dann unterschiedliche Farben für die Einträg...
20.01.2011 13:16:51
Thread-ID: 1196586
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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