Das Archiv des Excel-Forums

In Farbige Zellen schreiben

Bild

Betrifft: In Farbige Zellen schreiben
von: Ralf

Geschrieben am: 09.10.2003 13:18:31

Hallo,
ich möchte per Makro in jede farbige Zelle einer Tabelle einen Wert Schreiben.
Z.B. in jeder roten Zelle soll eine 1 eingefügt werden, in jede grüne Zelle eine 2.
Danke im vorraus
Ralf
Bild


Betrifft: AW: In Farbige Zellen schreiben
von: Markus
Geschrieben am: 09.10.2003 13:22:19

andersrum könnt ich dir helfen wenn ne eins steht dann grün oder so aber sorum brauchste wohl vba und das kann ich leider nicht


Bild


Betrifft: Herzlichen Glückwunsch, Markus....
von: PeterW
Geschrieben am: 09.10.2003 13:24:04

.... hast mit deinem Beitrag die Frage aus der Liste der offenen Fragen rausgekegelt.

Gruß
Peter


Bild


Betrifft: AW: Herzlichen Glückwunsch, Markus....
von: Ralf
Geschrieben am: 09.10.2003 13:31:02

....hast mit deinem Beitrag die Frage aus der Liste der offenen Fragen rausgekegelt

Und nun ?
Gruß Ralf


Bild


Betrifft: AW: In Farbige Zellen schreiben
von: Reinhard
Geschrieben am: 09.10.2003 13:53:57

Hi Ralf,
probier das Nachfolgende
Gruß
Reinhard
Option Explicit

Sub Makro2()
Dim n As Long
Dim m As Long
Dim zelle As Range
With Worksheets("Tabelle1")
For m = 1 To 30
For n = 1 To 20 'macht 100 zellen zufällig bunt
Cells(m, n).Interior.ColorIndex = Int((48 * Rnd) + 1)
Next n
Next m
For Each zelle In .UsedRange
If zelle.Interior.ColorIndex = 3 Then zelle.Value = 1 'rot
'hier weitere Ifs für andere farben
Next zelle
End With
End Sub



Bild


Betrifft: AW: In Farbige Zellen schreiben
von: Ralf
Geschrieben am: 09.10.2003 14:11:39

Hallo Reinhard
war zwar nicht das was ich gesucht hatte, aber trotzdem danke für dein antwort
Gruß
Ralf


Bild


Betrifft: AW: In Farbige Zellen schreiben
von: PeterW
Geschrieben am: 09.10.2003 13:33:00

Hallo Ralf,

das lässt sich mit einem kleinen Makro erledigen. Welche Farben kommen in der Tabelle vor?

Gruß
Peter


Bild


Betrifft: Rot ,Grün und Blau o.T.
von: Ralf
Geschrieben am: 09.10.2003 13:35:57

o.T.


Bild


Betrifft: AW: In Farbige Zellen schreiben
von: Galenzo
Geschrieben am: 09.10.2003 13:39:26

Hallo,

benützte dazu diese Prozedur:


Private Sub WerteNachFarbeEinsetzen()
Dim rng As Range
    For Each rng In Worksheets("Tabelle1").Range("A1:Y100").Cells
        Select Case rng.Interior.ColorIndex
            Case 3: rng.Value = 1
            Case 35: rng.Value = 2
        End Select
    Next rng
End Sub


Vorraussetzungen/Einschränkungen:
Rot hat den Farbindex 3
Grün habe ich hier mit Farbindex 35 genommen (hellgrün)
-> diese Werte mußt du entsprechend anpassen.
Versuche, den zu durchsuchenden Bereich (hier habe ich auf "A1:Y100" begrenzt) möglichst klein zu halten - dauert sonst zu lange.

Viel Erfolg!


Bild


Betrifft: AW: Rot ,Grün und Blau
von: Galenzo
Geschrieben am: 09.10.2003 13:42:47

Ich habe gerade gelesen, daß du auch noch die blauen Zellen mit Werten füllen möchtest.
Erweitere dazu die SELECT CASE - Anweisung um einen weiteren CASE-Strang (Karl Klammer oder F1 hilft dir da weiter)
Wenn du den Farbindex für Blau nicht weißt, kannst du ihn mit
MsgBox ActiveCell.Interior.ColorIndex ausgeben lassen.

mfg


Bild


Betrifft: AW: In Farbige Zellen schreiben
von: Ralf
Geschrieben am: 09.10.2003 13:44:28

Danke es funktioniert
Gruß Ralf


 Bild

Excel-Beispiele zum Thema " In Farbige Zellen schreiben"

Nur nichtfarbige Zellen schützen download Makros in Abhängigkeit vom Zellennamen aufrufen download
Zellen auf Kommentar überprüfen download Spalten bedingt summieren und Zellen formatieren download
Text aus Textbox in Zellen aufteilen download Zellen vergleichen und markieren download
Zählen formatierter Zellen download Daten aus Textdatei gezielt in Zellen übernehmen download
Zellen verbinden und trennen download Zellen bei Minuswerten schraffieren download
Zeilen oberhalb der markierten Zellen einfügen download Drei Zellen rechts der aktiven Zelle markieren download
Zellen vom Druck ausschließen download Zellenwert als Autofilter-Kriterienwert download
Nur Zellen mit Inhalt in ComboBox listen download Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download
Zellen nach Schriftfarbe summieren download Füllen aller leeren Zellen mit einem Platzhalter download
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download Zeilen mit Zellen mit rotem Hintergrund ausblenden download
Anzahl der gelb hinterlegten Zellen ermitteln download Editieren von Zellen durch DoppelKlick verhindern download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download
Prüfung, ob Parallelzellen übereinstimmen download Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download
Kofpzeilenwerte angekreuzter Zellen multiplizieren download Zellen über Tabellenblatt-Schaltfläche multiplizieren download
Wert aus A1 in mehrere Zellen übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download Nur sichtbare Zellen addieren download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Blatt auswählen und Zellen nacheinander drucken download
Leere und Zellen mit 0 aus-/einblenden download Zugriff auf Zellen unter Verwendung eines Bereichsnamens download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download Prüfung, welche Zellen nach Öffnen verändert wurden download
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeilenhöhe bei verbundenen Zellen anpassen download Einfügen von Zeilen vor und nach Zellen mit Fettdruck download
Bei Zelleingabe andere Zellen füllen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Gültigkeitsliste ohne Lerrzellen download Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download
Zellen verbinden, ohne dass Werte verlorengehen download Fehlermeldung abfangen und in sequentielle Datei schreiben download
Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben download Text aus UserForm in eine Zelle schreiben download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Bei Eingabe von "j" "Ja" und von "n" "Nein" schreiben download
Text in NotePad schreiben, speichern, in Excel aufrufen download Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben download
Emailrundschreiben mit vorgegebenem Text über Outlook download Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben. download
Registry-Einträge schreiben, lesen, löschen download Rundschreiben mit vorgegenem Text an Verteiler senden download
Zellinhalt als Unicode-Zeichen in HTML-Tabelle schreiben download