Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Größer als aber kleiner als VBA
Volker
Hallo zussammen,
ich versuche mittels untenstehendem Code einen Farbwechsel zu erreichen,
im ersten Teil funktioniert es. Kkann mir jemand sagen wo ich den (Denk)Fehler mache?
Event. bin ich ja auf dem Holzweg.... Übrigens... die gehören nicht zum Code :-))
Hier der Code
~f~If TextBox17.Value <= "90" Then~f~
UserForm2.Frame2.BackColor = RGB(0, 255, 0)
UserForm2.Label12.BackColor = RGB(0, 255, 0)
End If
~f~ If TextBox17.Value >"30" and <="60"Then <----- Hier scheint etwas nicht zu stimmen~f~
UserForm2.Frame2.BackColor = RGB(255, 255, 0)
UserForm2.Label12.BackColor = RGB(255, 255, 0)
End If
~f~ If TextBox17.Value <= "30" Then
UserForm2.Frame2.BackColor = RGB(255, 0, 0) '255 255 0, 255,0 0
UserForm2.Label12.BackColor = RGB(255, 0, 0) '255 255 0
End If
Danke fürs lesen,
Gruss Volker

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Größer als aber kleiner als VBA
28.04.2011 18:58:11
MichaV
If TextBox17.Value >"30" and TextBox17.Value
AW: Größer als aber kleiner als VBA
28.04.2011 19:04:22
ransi
Hallo
Aus der Hüfte geschossen und ungetestet:
If TextBox17.Value >"30" and TextBox17.Value <="60"Then
oder
If TextBox17.Value >"30" then
If TextBox17.Value <= "60" then
end if
end if
oder die Standardvorgehendsweise:
Select case TextBox17.Value
case <=30
UserForm2.Frame2.BackColor = RGB(255, 0, 0) '255 255 0, 255,0 0
UserForm2.Label12.BackColor = RGB(255, 0, 0) '255 255 0
case <= 60
UserForm2.Frame2.BackColor = RGB(255, 255, 0)
UserForm2.Label12.BackColor = RGB(255, 255, 0)
case <=90
UserForm2.Frame2.BackColor = RGB(0, 255, 0)
UserForm2.Label12.BackColor = RGB(0, 255, 0)
case else:
MSgbox "Mach was anderes"
end select
ransi
Anzeige
AW: Größer als aber kleiner als VBA
28.04.2011 19:40:56
Daniel
Hi
in dem speziellen Fall (30, 60, 90) kannst du das auch so lösen:
Dim Farbe(3) as long
dim i as long
Farbe(1) = RGB(255,0,0)
Farbe(2) = RGB(255, 255, 0)
Farbe(3) = RGB(0, 255, 0)
i = Worksheetfunction.RoundUp(Textbox17.Value/30, 0)
if i 

Gruß, Daniel
AW: Größer als aber kleiner als VBA
28.04.2011 19:48:55
Volker
Danke an alle, super!!!!!!
Gruß
Volker

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige