Das Archiv des Excel-Forums
In Farbige Zellen schreiben
- In Farbige Zellen schreiben von Ralf vom 09.10.2003 13:18:31
- AW: In Farbige Zellen schreiben - von Markus am 09.10.2003 13:22:19
- Herzlichen Glückwunsch, Markus.... - von PeterW am 09.10.2003 13:24:04
- AW: Herzlichen Glückwunsch, Markus.... - von Ralf am 09.10.2003 13:31:02
- AW: Herzlichen Glückwunsch, Markus.... - von Ralf am 09.10.2003 13:31:02
- AW: In Farbige Zellen schreiben - von Reinhard am 09.10.2003 13:53:57
- AW: In Farbige Zellen schreiben - von Ralf am 09.10.2003 14:11:39
- AW: In Farbige Zellen schreiben - von Ralf am 09.10.2003 14:11:39
- Herzlichen Glückwunsch, Markus.... - von PeterW am 09.10.2003 13:24:04
- AW: In Farbige Zellen schreiben - von PeterW am 09.10.2003 13:33:00
- Rot ,Grün und Blau o.T. - von Ralf am 09.10.2003 13:35:57
- Rot ,Grün und Blau o.T. - von Ralf am 09.10.2003 13:35:57
- AW: In Farbige Zellen schreiben - von Galenzo am 09.10.2003 13:39:26
- AW: Rot ,Grün und Blau - von Galenzo am 09.10.2003 13:42:47
- AW: In Farbige Zellen schreiben - von Ralf am 09.10.2003 13:44:28
- AW: Rot ,Grün und Blau - von Galenzo am 09.10.2003 13:42:47
- AW: In Farbige Zellen schreiben - von Markus am 09.10.2003 13:22:19
 |
Betrifft: In Farbige Zellen schreiben
von: Ralf
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
 |
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
|
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
|
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
|
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
|
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
|
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
|
Betrifft: Rot ,Grün und Blau o.T.
von: Ralf
Geschrieben am: 09.10.2003 13:35:57
o.T.
|
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!
|
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
|
Betrifft: AW: In Farbige Zellen schreiben
von: Ralf
Geschrieben am: 09.10.2003 13:44:28
Danke es funktioniert
Gruß Ralf
| |
