Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Image1.BackColor Dynamisch

Forumthread: Image1.BackColor Dynamisch

Image1.BackColor Dynamisch
30.03.2016 13:11:16
baschti007
Hallo
Ich würde gerne
Image1.BackColor dynamisch bei next i Image2.BackColor machen wie geht das ?
Ich habe Image(i).BackColor getestet aber leider geht das nicht
Gruß Basti

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Image1.BackColor Dynamisch
30.03.2016 13:15:39
Rudi
Hallo,
Shapes("Image" &i)
Gruß
Rudi

AW: Image1.BackColor Dynamisch
30.03.2016 13:24:34
baschti007
Hallo Rudi
was mache ich falsch ?
Private Sub ListView1_click()
Dim i As Long
Dim SubI    As String
Dim Shapes As Variant
For i = 1 To 2
SubI = ListView1.SelectedItem.ListSubItems(i).Text
If SubI = "+" Then Shapes("Image" & i).BackColor = RGB(0, 100, 0)
If SubI = "-" Then Shapes("Image" & i).BackColor = RGB(139, 0, 0)
If SubI = "0" Then Shapes("Image" & i).BackColor = RGB(255, 255, 0)
If SubI = "" Then Shapes("Image" & i).BackColor = RGB(255, 255, 255)
Next i
End Sub
Gruß Basti

Anzeige
AW: Image1.BackColor Dynamisch
30.03.2016 13:42:05
Rudi
wo ist denn das Image?
Auf einem Blatt oder einer Userform?
Wenn UF, dann Controls("Image" &i)

Super Danke =)
30.03.2016 13:49:25
baschti007 

Private Sub ListView1_click()
Dim i As Long
Dim SubI    As String
For i = 1 To 2
SubI = ListView1.SelectedItem.ListSubItems(i).Text
If SubI = "+" Then Controls("Image" & i).BackColor = RGB(0, 100, 0)
If SubI = "-" Then Controls("Image" & i).BackColor = RGB(139, 0, 0)
If SubI = "0" Then Controls("Image" & i).BackColor = RGB(255, 255, 0)
If SubI = "" Then Controls("Image" & i).BackColor = RGB(255, 255, 255)
Next i
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige