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

durch anklicken die Zellenfarbe ändern

Forumthread: durch anklicken die Zellenfarbe ändern

durch anklicken die Zellenfarbe ändern
14.06.2006 10:26:36
Alex
Hallo zusammen,
wie bekomme ich es hin, dass durch ein klicken in eine Zelle sich entweder die Farbe der Zelle ändert oder automatisch z.B. ein Ja gesetzt wird?
Für eure Antwort danke ich euch im Voraus!
Viele Grüße
Alex
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 14:07:46
Alex
Hallo Bertram,
mir ist noch was anderes eingefallen. Ich möchte durch das klicken das Kästchen nicht grün machen sondern ein x in die Zelle setzen! Wie geht es dann?
kann ich da folgendes benutzen https://www.herber.de/forum/messages/772540.html ? und was muss ich dann ändern!
Gruß Alex
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 11:03:51
Thorsten_Z
Hallo Alex,
folgenden Code in entsprechende Arbetsmappe im VBA Editor einfügen und für dich anpassen.
Klickst du in diesem Beispiel auf eine Zelle im Bereich B2 bis B100 wird der Wert aus Zelle C1 übernommen. Die Zellfarbe kannst du dann über die bedingte Formatierung zuordnen.
Lasse Frage noch offen, falls es nicht das ist was du suchst.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$B$2:$B$100")) Is Nothing Then
Selection.Value = Range("C1").Value
End If
End Sub

Hoffe es war hilfreich. Und Rückmeldung währe nett
Gruß
thorsten
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 12:19:24
Alex
Hallo Bertram,
hallo Thorsten,
also der Beitrag von dir Bertram war genau das was ich gesucht habe, mit dem Vorschlag von dir Thorsten hat es nicht geklappt. Ich danke euch beiden trotzdem!
Wisst Ihr vielleicht noch, wie ich jetzt die Anzahl von Zellen addieren kann, die durch das klicken grün geworden sind? Ich muss es für jede Spalte können.
Gruß
Alex
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 12:35:28
Bertram
Hi Alex,
für Grün gehts z.B so (BommandButton in Tabelle):

Private Sub CommandButton1_Click()
Dim Spalte As Integer
Dim Zelle As Range
Dim Grün As Long
Spalte = InputBox("Welche Spalte")
For Each Zelle In UsedRange.Columns(Spalte).Cells
If Zelle.Interior.ColorIndex = 4 Then Grün = Grün + 1
Next Zelle
MsgBox ("In Spalte " & Spalte & " sind " & Grün & " grüne Zellen")
End Sub

Gruß
Bertram
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 12:48:31
Alex
Hallo Bertram,
und wie lasse ich mir die Info dann anzeigen?
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 13:08:39
Bertram
Hallo Alex,
die MsgBox gibt dir doch das Ergebnis aus. Wenn du's in einer Zelle haben willst, dann schreibe
Range("A1").Value = Grün
Gruß
Bertram
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 13:14:12
Alex
Sorry,
ich kenn mich ja mit Makros nicht aus, daher habe ich es direkt unter das vorhergehende Makro plaziert im MS VB Editor. Ist das richtig? Denn ich bekomme keine Box angezeigt!
Gruß
Anzeige
AW: durch anklicken die Zellenfarbe ändern
14.06.2006 13:21:33
Bertram
Hi Alex,
nicht direkt. Einfachste Methode:
Wähle aus der Steuerelemente-Toolbox den CommandButton aus und platziere ihn auf deinem Tabellenblatt. Dann CommandButton doppelklicken. Es entsteht das Grundgerüst

Private Sub CommandButton1_Click()
End Sub

Da fügst du den Code ein. nun siehst du auch wo er platziert wird.
Gruß
Bertram
Anzeige
;

Forumthreads zu verwandten Themen

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
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
Zellenverbinden und Zellenfarbe ändern
Christian

Hallo alle zusammen,
ich hänge euch eine Bsp.-Datei an, Von Zeile 3 an wurde eine weitere Tabelle eingefügt. Wie bekomme ich es hin, dass die Spaltenbezeichnungen der Zeile 6 entsprechen, also z.B. die jetzige Spalte 3 und Spalte 4 dieselbe Spaltenbezeichnung haben, sodass ich z.B. nach ein...
02.10.2012 11:52:51
Thread-ID: 1280215
5 Beiträge
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
wenn in Zelle kein bestimmtes Wort, Farbe ändern
Martin

Hallo miteinander,
ich möchte beim Klicken des Button 2019, dass in alle Zellen, in denen nicht 2019 enthalten ist, sich die Schriftfarbe der Hintergrundfarbe der Zelle anpasst.
Bisher habe ich das mit folgendem Code gelöst:
Private Sub CommandButton1_Click() Dim Zelle As Range For...
21.08.2018 15:32:29
Thread-ID: 1640794
14 Beiträge
Anzeige
Zellenfarbe ändern
John

Hallo, ich bräuchte für folgendes Problem eine Expertenhilfe.
Hier die Beschreibung:
Es geht um eine Bewertung von Personen.
Das Excel Dokument besteht aus 2 Arbeitsblättern. Im Arbeitsblatt "Kompetenzen" habe ich mehrere Buttons für eine Bewertung und unterschiedliche Kompetenzen....
11.11.2018 13:51:33
Thread-ID: 1656791
4 Beiträge
VBA- per Klick Zellenfarbe ändern, aber kein "color" im Code
Peter

Hallo zusammen,
nach einigen Recherchen konnte ich mein Problem leider nicht lösen. Mein früherer BI-Kursleiter konnte mir leider auch nicht helfen.
Ich bin neu in diesem Forum und bin für jegliche Hilfe dankbar.
Ich habe ein VBA Kalender Tool vor mir liegen von meinem Vorgänger (d...
05.11.2019 12:22:30
Thread-ID: 1721398
4 Beiträge
Anzeige
Zelleninhalte in Abhängigkeit der Zellfarbe ändern
Max

Hallo Excel Pros,
Ich habe eine Frage bezüglich eines Makros.
Wie kann ein Makro aussehen, dass alle Werte aus Zellen löscht, die eine bestimmte Farbe haben.
In der Beispielsdatei müssen alle Werte, die in einer hellgrünen Zelle liegen, gelöscht werden.
Wie kann ich das am b...
12.10.2020 17:13:43
Thread-ID: 1787090
4 Beiträge
Zellenfarbe/ Value verändern
Leo

Guten Morgen,
Ausgangslage: Ich bin bei uns zuständig für Sicherheitsschulungen. Wenn ein Standort geschult ist, und der Schulungsleiter vor Ort eine Zelle aktiviert/etc, soll der Hintergrund grün werden.
Die erste Variante war, über die bedingte Formatierung einfach die Zellenfarbe zu...
22.10.2020 10:12:44
Thread-ID: 1788786
7 Beiträge
Zellenfarbe beim.Filtern ändern
Markus218
Guten Abend in die Runde,

ich habe folgende Frage:

In einem Dateiblatt habe ich drei Spalten, z. B. die Spalten D, E und F, in denen in mehreren Zeilen jeweils "ja" und "nein" angegeben ist.

Der Filter für jede Spalte ist gesetzt.

Gibt es eine Möglichkeit, die...
16.05.2024 19:31:55
Thread-ID: 1978103
9 Beiträge
Anzeige

Infobox / Tutorial

Zellenfarbe in Excel durch Anklicken ändern

Schritt-für-Schritt-Anleitung

Um die Farbe einer Excel-Zelle durch Anklicken zu ändern, benötigst du ein simples VBA-Skript. Folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("$B$2:$B$100")) Is Nothing Then
       If Target.Interior.ColorIndex = 4 Then
           Target.Interior.ColorIndex = xlNone ' Entfernt die Farbe
       Else
           Target.Interior.ColorIndex = 4 ' Setzt die Zelle auf grün
       End If
   End If
End Sub

  4. Schließe den VBA-Editor:

    • Speichere deine Änderungen und schließe den Editor.

  5. Teste die Funktion:

    • Klicke auf eine Zelle im Bereich B2 bis B100. Die Farbe sollte sich nun ändern.

Häufige Fehler und Lösungen

  • Fehler: Die Farbänderung funktioniert nicht
    Lösung: Überprüfe, ob du den Code im richtigen Arbeitsblatt eingefügt hast. Der Code muss im Modul des spezifischen Arbeitsblatts, nicht in einem allgemeinen Modul, platziert werden.

  • Fehler: Zelle wird nicht zurückgesetzt
    Lösung: Stelle sicher, dass die Zelle nicht bereits leer ist oder eine andere Farbe hat, die den Code übersteuert.

Alternative Methoden

Eine einfache Möglichkeit, die Zellenfarbe durch einen Button zu ändern, ist die Verwendung eines CommandButtons:

  1. Füge einen CommandButton hinzu:

    • Gehe zu Entwicklertools > Einfügen und wähle Button.

  2. Klicke mit der rechten Maustaste auf den Button und wähle Code anzeigen.

  3. Füge diesen Code hinzu:

    Private Sub CommandButton1_Click()
   Dim Zelle As Range
   For Each Zelle In Selection
       If Zelle.Interior.ColorIndex = 4 Then
           Zelle.Interior.ColorIndex = xlNone
       Else
           Zelle.Interior.ColorIndex = 4
       End If
   Next Zelle
End Sub

Praktische Beispiele

  • Zellenfarbe ändern und Text setzen: Wenn du beim Klicken nicht nur die Farbe ändern, sondern auch einen Text wie "Ja" setzen möchtest, kannst du den Code anpassen:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("$B$2:$B$100")) Is Nothing Then
       Target.Value = "Ja"
       Target.Interior.ColorIndex = 4
   End If
End Sub

  • Anzahl der grünen Zellen zählen: Um die Anzahl der Zellen, die grün geworden sind, zu zählen, kannst du diesen Code verwenden:

    Private Sub CommandButton1_Click()
   Dim Zelle As Range
   Dim Grün As Long
   For Each Zelle In UsedRange
       If Zelle.Interior.ColorIndex = 4 Then Grün = Grün + 1
   Next Zelle
   MsgBox "Es sind " & Grün & " grüne Zellen."
End Sub

Tipps für Profis

  • Nutze bedingte Formatierungen, um zusätzliche visuelle Hinweise zu geben, wenn Zellen geändert werden.
  • Experimentiere mit verschiedenen ColorIndex-Werten, um verschiedene Farben zu verwenden.
  • Erstelle eine Benutzeroberfläche mit Checkboxen oder Dropdowns, um die Interaktivität zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe auf eine andere ändern?
Du kannst die ColorIndex-Werte im Code anpassen. Beispiel: ColorIndex = 3 für rot.

2. Kann ich die Farbe auch für andere Zellenbereiche ändern?
Ja, ändere einfach den Bereich in der Intersect-Funktion, um andere Zellen zu targetieren.

3. Funktioniert das auch in Excel 2016?
Ja, die beschriebenen Methoden funktionieren in Excel 2016 und späteren Versionen.

Beliebteste Forumthreads (12 Monate)

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