Wörter und Farben

Hallo zusammen,
ich möchte gerne folgendes erzeugen:

Es werden zufällig Wörter (Farben) in der Tabelle angezeigt, z.B „blau“, „gelb“, „grün“ „rot“, usw.

Diese haben eine zufällige Farbe (als Formatierung).

Somit könnte es sein, das das Wort blau in der Farbe rot angezeigt wird.
Wie kann ich das in Excel oder html oder in Word hinbekommen?

Viele Grüße

Peter

Hallo!

Wie kann ich das in Excel oder html oder in Word hinbekommen?

Excel: mit Zellfunktionen oder VBA (Visual Basic for Applications)
Word: mit VBA
HTML: direkt gar nicht, aber clientseitig mit JavaScript, serverseitig mit jeder beliebigen „Serversprache“

Falls du einem der „Ausgabeprogramme“ klar den Vorzug gibst, würd ich in einer der zuständigen Bretter nochmal fragen.

Gruß, Jan

Hallöle…
Kannst du da nicht z.B. mit Bedingungen arbeiten?
In Java wäre es ganz einfach…
Grüßl, Mömchen

Hallöle…
Kannst du da nicht z.B. mit Bedingungen arbeiten?
In Java wäre es ganz einfach…

Aber nicht nötig. Man hat ein Array mit Farben, erzeugt zufällig einen Index und holt sich damit aus dem Array eben die Farbe.
Pseudocode:

farben = ("rot","grün","blau")
i = getZufälligeZahl(3) # ein Wert von 0 bis 2
dieFarbe = farben[i]

Das bekäme man auch prima in Excel ohne Verwendung von VBA hin.

Jan

Es werden zufällig Wörter (Farben) in der Tabelle angezeigt,
z.B „blau“, „gelb“, „grün“ „rot“, usw.

Diese haben eine zufällige Farbe (als Formatierung).

Somit könnte es sein, das das Wort blau in der Farbe rot
angezeigt wird.
Wie kann ich das in Excel oder html oder in Word hinbekommen?

hallo Peter,

mal ein Grundansatz für Excel. Die Wörter in der lammer kannste beliebig vermehren.

Option Explicit
'
Sub tt()
Dim arrF As Variant, N As Byte
arrF = Array("Blau", "Grün", "Gelb", "Rot")
For N = 0 To UBound(arrF)
 Cells(N + 1, 1).Value = arrF(N)
 Cells(N + 1, 1).Font.ColorIndex = Int(Rnd() \* 40) + 1
Next N
End Sub

Gruß
Reinhard

Aber nicht nötig. Man hat ein Array mit Farben, erzeugt
zufällig einen Index und holt sich damit aus dem Array eben
die Farbe.
farben = („rot“,„grün“,„blau“)
i = getZufälligeZahl(3) # ein Wert von 0 bis 2
dieFarbe = farben[i]
Das bekäme man auch prima in Excel ohne Verwendung von VBA
hin.

Hallo Jan,

nein, das geht in Excel nur mit excel-Vba.
Oder halt manuell anpinseln :smile:

Gruß
Reinhard

Klar geht das ohne VBA! Re^4: Wörter und Farben
Hi,

Aber nicht nötig. Man hat ein Array mit Farben, erzeugt
zufällig einen Index und holt sich damit aus dem Array eben
die Farbe.
farben = („rot“,„grün“,„blau“)
i = getZufälligeZahl(3) # ein Wert von 0 bis 2
dieFarbe = farben[i]
Das bekäme man auch prima in Excel ohne Verwendung von VBA
hin.

Hallo Jan,

nein, das geht in Excel nur mit excel-Vba.
Oder halt manuell anpinseln :smile:

mach mal

=WAHL(GANZZAHL(ZUFALLSZAHL()*3)+1;„blau“;„rot“;„grün“)

und dann bedingte Formatierung, in die Du Folgendes eingibst:

Formel ist: =ZUFALLSZAHL()

Das bekäme man auch prima in Excel ohne Verwendung von VBA
hin.

nein, das geht in Excel nur mit excel-Vba.
Oder halt manuell anpinseln :smile:

mach mal

=WAHL(GANZZAHL(ZUFALLSZAHL()*3)+1;„blau“;„rot“;„grün“)

und dann bedingte Formatierung, in die Du Folgendes eingibst:

Formel ist: =ZUFALLSZAHL()

Hallo Wiemann,
Es gab ja schon einige Antworten die bestimmt funktionieren.
Falls du jedoch nicht extra VBA programmieren willst,
gibts da ein Excel-Feature mit dem du das auch ohne Programmieren hinbekommen müsstest.
Es nennt sich „Bedingte Formatierung“:
http://www.tippscout.de/excel-bedingte-formatierung-…

Viel Erfolg + Grüße
VoidZer0

Es gab ja schon einige Antworten die bestimmt funktionieren.
Falls du jedoch nicht extra VBA programmieren willst,
gibts da ein Excel-Feature mit dem du das auch ohne
Programmieren hinbekommen müsstest.

hallo Void,

ohne Vba geht es nur mit drei farebn er will vier, also vba oder nix.
2007 mal weglassend.

Gruß
Reinhard

Oh stimmt. Habe es grade noch mal angesehen.
Danke für den Hinweis.
Mir war gar nicht mehr bewusst,
dass man da nur 3 Fallunterscheidungen angeben kann.
Das ist ja echt wieder mal ne schwache Leistung.
Warum kann man da nicht mehr als 3 angeben?
Ok, dann vergesst meinen Vorschlag wieder :wink:

Lieben Gruß
V0id