Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige