VBScript - Wenn Bedingung erfüllt ist den Text farbig färben

Hallo Leute,

ich weiß nicht, ob dieser Bereich richtig ist, aber ich bin davon ausgegangen

Mein Problem ist dieses, ich bin soweit neu beim VB Script, aber habe C# und VBA schon ein wenig programmiert.

Nun habe ich angefangen zu Scripten, aber muss nun einen Text farbig machen, wenn eine bestimmte Bedingung erfüllt ist.

Ich brauche nur den "Befehl" um zu färben.

Nehmen wir an:

If wochentag(2) = mittwoch then
document.write("Ja"& "<br>")
Else
document.write("Nein"& "<br>")
End If

Wie mache ich das "Ja" rot, wenns zutrifft?

Im Internet finde ich nichts was mir weiter helfen kann..

Danke und Freundliche Grüße,

Elric

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 208748

Url: https://administrator.de/forum/vbscript-wenn-bedingung-erfuellt-ist-den-text-farbig-faerben-208748.html

Ausgedruckt am: 19.04.2025 um 04:04 Uhr

6 Kommentare

Neuester Kommentar

Hallo Elric,
denke dein Zieldokument ist HTML, dann geht das so:

Document.write ('<span style="color:red>Ja</span><br />')

Grüße Uwe

nun stellt sich mir die Frage, wie ich auf die ausgegebene Zahl kommen soll

<!DOCTYPE html>
<html>
<body>

<script type="text/vbscript">

dim wochentag(6)
dim zahl

wochentag(0) ="montag"
wochentag(1) ="dienstag"
wochentag(2) ="mittwoch"
wochentag(3) ="donnerstag"
wochentag(4) ="freitag"
wochentag(5) ="samstag"
wochentag(6) ="sonntag"

For zahl = 0 to 10
If zahl mod 2 then
document.write("<span style=color:red></span><br>")
for i = 0 to 6
document.write("Es ist heute: "& wochentag(i) &"<br>")
Next
else document.write("Ungültig" & "<br>")
end if
Next

</script>
</body>
</html>

Mir soll nun die zahl in rot angezeigt werden, aber wenn ich da nur "zahl" eingebe, kommt nur "zahl" in rot

meinst du das so ?

document.write("<span style=color:red>" & zahl & "</span><br>")

Übrigens, es gibt in VBA ein Objekt mit dem Namen Date mit dem man den Wochentag abfragen kann!

Das meinte ich danke

Ja davon wusste ich, dass hier grad, war nurn kleiner Anfang im Skripten

Mit dem Date Objekt setz ich mich gleich auseinander

Zum reagieren auf die unterschiedlichen Wochentage kann folgender Code verwendet werden:

wd = Weekday(Date)
Select Case wd
	Case vbMonday
		'Montag  
	Case vbTuesday
		'Dienstag  
	Case vbWednesday
		'Mittwoch  
	Case vbThursday
		'Donnerstag  
	Case vbFriday
		'Freitag  
	Case vbSaturday
		'Samstag  
	Case vbSunday
		'Sonntag  
End Select