Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hintergrundfarbe mit Makro ändern

Forumthread: Hintergrundfarbe mit Makro ändern

Hintergrundfarbe mit Makro ändern
12.12.2002 16:58:19
Matthias H.
Hallo,

ich möchte eine "unsichtbare" Zelle (grauer Hintergrund mit grauer Schrift) mit Hilfe eines Makros "sichtbar" machen (Schriftfarbe ändern).
Im Forum habe ich zwar schon einen Beitrag dazu gelesen (von Georg), aber die Lösung war für mich nicht ganz nachvollziehbar.


Gruß
Matthias

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Hintergrundfarbe mit Makro ändern
12.12.2002 17:01:05
Chris
Range("A1").Interior.ColorIndex = xlNone
Range("A1").Font.ColorIndex = 0


Hallo Matthias

Obiges Makro bezieht sich auf Zelle A1.

Gruss
Chris

Re: Hintergrundfarbe mit Makro ändern
12.12.2002 17:02:16
L.Vira
sub farbe()
[a1].interior.colorindex = 5
end sub
Danke Euch beiden, und noch ne Frage
12.12.2002 17:17:33
Matthias H.
Danke für die schnellen Antworten!
Gibt es eine Art Taster-Funktion, bei der die Hintergrundfarbe nur solange geändert wird wie ich den Button drücke?

Gruß
Matthias

Anzeige
Klar geht das...
12.12.2002 17:23:01
L.Vira
Es muss ein Commandbutton as der Steuerelemente- Toolbox sein
In den Eigenschaften muss TakeFocusOnClick auf False eingestellt sein. Der Code gehört in das Modul der Tabelle:

Option Explicit
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell.Interior.ColorIndex = 5
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell.Interior.ColorIndex = xlNone
End Sub

Anzeige
Button will nicht so...
12.12.2002 17:40:56
Matthias H.
Hallo L.Vira,

ich habe einen o.g. Button erzeugt und deinen Code eingefügt. Allerdings kann ich ihn nicht anklicken. Wenn ich mit der Maus draufgehe, erscheint ein Pfeil mit 4 Spitzen.
Was nun?

Matthias

Re: Button will nicht so...
12.12.2002 17:46:28
L.Vira
du kennst dich mit VBA gar nicht aus, stimmts?
Du musst erst den Entwurfsmodus beenden, das ist das Symbol
ganz links oben in der Symbolleiste Steuerelemente- Toolbox.
Anzeige
Re: Button will nicht so...
12.12.2002 18:16:21
Matthias H.
Naja, ich bin halt Autodidakt. Dank des Forums, und solch hilfsbereiten Leuten wie Dir ist einiges schon klarer. Mit Steuerelementen hatte ich noch nichts gemacht. Aber jetzt habe ich wieder was dazu gelernt.
Vielen Dank!
Matthias
;

Forumthreads zu verwandten Themen

Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
Josef_T
Guten Tag zusammen,
ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
23.01.2010 20:19:29
Thread-ID: 1132376
6 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 Beiträge
Zellen färben VBA
sven

Hi,
ich habe eine Userform mit einer Combobox.
Die Userform wird durch Doppelklick einer Zelle aufgerufen
Die Einträge in der Combobox sind : Entladung1,Entladung2,Entladung3,Entladung4
Wenn jetzt zum Beispiel Entladung4 gewählt wurde, soll die Zelle, aus der die Userform herbei...
31.05.2011 18:03:59
Thread-ID: 1216908
8 Beiträge
Registerfarbe besdingt durch Zelleneingabe ändern
Lars

Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerb...
12.10.2011 15:57:41
Thread-ID: 1233555
4 Beiträge
Zellen füllen wenn farbe - VBA
Matthias

Hallo Excelfreunde,
benötige VBA Hilffe, ein Zellbereich F13:AJ15 soll mit "F" oder "S" oder "N" gefüllt werden, wenn:
1) spalte A13:A15 einen Namen enthält (Zellen ohne Name= ""); der Bereich wird später größer sein
UND
2) Zeile F10:AJ10 Mo,Di,Mi,Do,Fr enthält ; (bei Sa,So...
22.12.2011 20:40:34
Thread-ID: 1243311
4 Beiträge
Anzeige
Makrosicherheit lässt sich nicht mehr ändern
Albert

Mahlzeit zusammen,
nachdem ich vor langer Zeit die Makrosicherheit auf meine entsprechende Stufe gestellt hatte, fiel mir gestern durch einen Hinweis meines Kollegen auf, dass sich die Makroeinstellungen in den Optionen nicht mehr ändern lassen. Diese sind grau hinterlegt, lassen keinen and...
13.12.2012 12:53:41
Thread-ID: 1290721
4 Beiträge
Anzeige
Ändern der zellefarbe wenn Formel hinterlegt
Marko

Hallo,
ich bin gerade dabei eine verwirrendes Rechenblatt zu erstellen.
Jezt komt es immer wieder vor das ich in Zellen was eintrage, wo eigentlich eine Formel steht.
Kann ich irgendwie eine Zelle gelb (oder anders) machen sobald in einer Zelle eine Formel steht?
Ich weis ich kö...
28.04.2013 10:53:23
Thread-ID: 1310818
8 Beiträge
Textfarbe bei farbig hinterlegten Zellen ändern
Mike

Hallo liebe EXCEL-Spezialisten
Bin beim Googeln auf dieses Forum gestossen und habe den Eindruck, dass sich hier hilfsbereite Leute mit einem grossen Fachwissen treffen und mir allenfalls helfen können.
Folgende Ausgangslage: EXCEL 2010-Datei mit rund 35 Tabellenblättern; jeweils divers...
28.05.2014 09:44:13
Thread-ID: 1363786
8 Beiträge
VBA via Inputbox suchen und Zelle ändern
Ralf
Hallo zusammen,
habe folgendes Problem:
Würde gerne über eine Inputbox nach einem Wert in Spalte B suchen. Wenn der Wert gefunden wurde, soll über eine weitere Inputbox der Wert in der Spalte G (in der selben Zeile) geändert werden können.
Bsp:
Suchwert "1234" wird gefunden in Zell...
22.06.2014 16:14:54
Thread-ID: 1366900
5 Beiträge
Schriftfarbe der Zellenfarbe mit VBA anpassen
Niko

Hallo Zusammen,
ich brauche mal wieder dringend eure Hilfe.
Mittels Makro soll der Zellenwert überprüft werden. Sollte dieser Wert 100 sein, soll die Schriftfarbe der Zelle mit der Zellenfarbe übereinstimmen, damit man diesen Wert nicht mehr lesen kann. Ansonsten soll die Farbe so blei...
01.08.2014 09:28:01
Thread-ID: 1373544
8 Beiträge
Anzeige

Infobox / Tutorial

Hintergrundfarbe in Excel mit VBA ändern

Schritt-für-Schritt-Anleitung

Um die Hintergrundfarbe einer Zelle in Excel mithilfe von VBA zu ändern, kannst Du die folgenden Schritte befolgen:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du die Hintergrundfarbe ändern möchtest.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeinArbeitsblattname)".
    • Wähle "Einfügen" und dann "Modul".

  4. Gib den folgenden Code ein, um die Hintergrundfarbe einer Zelle zu ändern:

    Sub ÄndereHintergrundfarbe()
   Range("A1").Interior.ColorIndex = 5 ' Setzt die Hintergrundfarbe auf Blau
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle ÄndereHintergrundfarbe aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Excel Hintergrundfarbe lässt sich nicht ändern"

    • Überprüfe, ob die Zelle möglicherweise geschützt ist. Entferne den Schutz, um Änderungen vorzunehmen.

  • Fehler: "VBA zellenfarbe ändern funktioniert nicht"

    • Stelle sicher, dass Du die Zelle korrekt referenzierst (z. B. Range("A1")).

  • Probleme mit dem CommandButton:

    • Wenn der Button nicht klickbar ist, stelle sicher, dass Du den Entwurfsmodus beendet hast.

Alternative Methoden

Eine weitere Möglichkeit, die Hintergrundfarbe zu ändern, ist die Verwendung eines CommandButtons:

  1. Füge einen CommandButton aus der Steuerelement-Toolbox hinzu.
  2. Setze die TakeFocusOnClick-Eigenschaft auf False.

  3. Verwende diesen Code im Modul der Tabelle:

    Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   ActiveCell.Interior.ColorIndex = 5 ' Setzt die Hintergrundfarbe auf Blau
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   ActiveCell.Interior.ColorIndex = xlNone ' Setzt die Hintergrundfarbe zurück
End Sub

Praktische Beispiele

  • Beispiel 1: Hintergrundfarbe ändern

    Sub SetzeHintergrundfarbe()
  Worksheets("Tabelle1").Range("B2").Interior.Color = RGB(255, 0, 0) ' Rot
End Sub

  • Beispiel 2: Zellenfarbe ändern basierend auf einem Wert

    Sub FärbeZellen()
  Dim Zelle As Range
  For Each Zelle In Range("A1:A10")
      If Zelle.Value > 10 Then
          Zelle.Interior.ColorIndex = 3 ' Rot
      Else
          Zelle.Interior.ColorIndex = 4 ' Grün
      End If
  Next Zelle
End Sub

Tipps für Profis

  • Nutze die RGB-Funktion für genauere Farbauswahl: RGB(Red, Green, Blue).
  • Experimentiere mit der ColorIndex-Eigenschaft, um vordefinierte Farben zu verwenden.
  • Setze Bedingte Formatierungen ein, um die Zellenfarbe dynamisch basierend auf den Zellenwerten zu ändern.

FAQ: Häufige Fragen

1. Wie ändere ich die Hintergrundfarbe mehrerer Zellen gleichzeitig?
Du kannst eine Range angeben, z. B. Range("A1:B10").Interior.ColorIndex = 5.

2. Warum funktioniert mein VBA Code nicht?
Stelle sicher, dass Du den Makrosupport in Excel aktiviert hast und dass keine Syntaxfehler im Code vorliegen.

Beliebteste Forumthreads (12 Monate)

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