Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Images vergleichen

Forumthread: 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

Anzeige

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

Anzeige
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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige