Imgages aus Userform mit Klick an aus

Guten Tag Spezialisten/-innen.
Aus einer Userform ("usf1" sind 20 Images, 10 Imgages "img1 bis imgNull", mit grauen Zahlen 1 bis 0 und unter des grauen, 10 Images mit roten Zahlen "img1a bis imgNulla"
Mit Klick z.B. auf graue Zahl 1 "img1" wird Image ausgeblendet und rote Zahl 1a "img1a" wird eingeblendet.
Dafür ist der Code hinterlegt. Dies habe ich mal für Zahl 1 und Zahl 2 gemacht.
Um das aber nicht für jede Zahl machen zu müssen, suche ich den Code, der diese Wechsel der Images kürzer und einfacher macht, da es sonst sehr viel Code ist.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Anbei Musterdatei und mein bisheriger Code: https://www.herber.de/bbs/user/140598.xlsm


Private Sub img1_Click()
usf1.img1.Visible = True
If usf1.img1.Visible = False Then
usf1.img1a.Visible = True
Else
usf1.img1.Visible = False
usf1.img1a.Visible = True
End If
End Sub

Private Sub img1a_Click()
usf1.img1.Visible = True
usf1.img1a.Visible = False
End Sub

Private Sub img2_Click()
usf1.img2.Visible = True
If usf1.img2.Visible = False Then
usf1.img2a.Visible = True
Else
usf1.img2.Visible = False
usf1.img2a.Visible = True
End If
End Sub

Private Sub img2a_Click()
usf1.img2.Visible = True
usf1.img2a.Visible = False
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub img01_Click() usf1.img1a.ZOrder msoBringToFront End Sub Private Sub img1a_Click() usf1.img01.ZOrder msoBringToFront End Sub Private Sub img2_Click() usf1.img2a.ZOrder msoBringToFront End Sub Private Sub img2a_Click() usf1.img2.ZOrder msoBringToFront End Sub

Hallo Dieter(Drummer),
da es "nur" 20 Elemente sind und diese Anzahl fest ist, lohnt es sich nicht, auf ein komplexere Behandlung zu wechseln.
Mit einem Suchen/Ersetzen schaltet man sehr schnell den

Private Sub img1_Click()
usf1.img1.Visible = False
usf1.img1a.Visible = True
End Sub
Private Sub img1a_Click()
usf1.img1.Visible = True
usf1.img1a.Visible = False
End Sub

in einem

Private Sub img2_Click()
usf1.img2.Visible = False
usf1.img2a.Visible = True
End Sub
Private Sub img2a_Click()
usf1.img2.Visible = True
usf1.img2a.Visible = False
End Sub

Man kann auch die 8 Zeilen in einem Tabelle in Spalte A einfügen, in Spalte B
=WECHSELN(A1;"g1";"g"&$C$1)
und C1 abwechseln 2 bis 0 eintragen, jedesmal Copy-Paste dazwischen...
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

Imgages aus Userform mit Klick an aus

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Imgages aus Userform mit Klick an aus

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread