Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Images vergleichen

Images vergleichen
25.05.2007 23:17:00
Hans
Hi Leute,
muss in einer Userform die Images in zwei Frames vergleichen, ob sie die selben Bilder
geladen haben. Das kann ich theoretisch so machen:
If Image1.Picture = Image52.Picture And Image2.Picture = Image53.Picture And _
Image3.Picture = Image54.Picture And ....usw.
Es sind insgesamt 102 Images, wobei, wie oben zu sehen, 1 = 51, 2 = 52, 3 = 53 usw. sein müssen.
Das geht doch bestimmt einfacher, nur ich kann es nicht.
Vielen Dank für Vorschläge.
Grüße Hans

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Images vergleichen
25.05.2007 23:34:00
Matthias
Hallo Hans,
als Ansatz, in einer Schleife:
If Controls("Image" & i).Picture = Controls("Image" & i + 50).Picture '...
(ungetestet)
Gruß Matthias

AW: Images vergleichen
26.05.2007 00:16:51
Hans
Hi,
nö, es müssen ja alle gleich sein, bei deinem Vorschlag wird nur eine Übereinstimmung geprüft.
Nochmal, nur wenn 1 = 52 und 2 = 53 und 3 = 54 und 4 = 55 usw. bis 51 = 102 ist die Bedingung erfüllt.
Grüße Hans

Vergessen, noch offen! oT
26.05.2007 00:17:00
Hans
o

AW: Vergessen, noch offen! oT
26.05.2007 00:28:00
Matthias
Hallo Hans,
ich schrieb ja als Ansatz, in einer Schleife.
Na gut, wenn du nicht klarkommst:

Dim i As Integer, ok As Boolean
ok = True
For i = 1 To 51
If Controls("Image" & i).Picture  Controls("Image" & i + 51).Picture Then
ok = False
Exit For
End If
Next i
If ok Then MsgBox "OK" Else MsgBox "nicht OK"


Gruß Matthias

Anzeige
Hervorragend, danke! oT
26.05.2007 00:39:20
Hans
oT

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige