worldmiracles

Nun habe ich eine Lösung für mein Problem gefunden. Sie ist zwar nicht sehr elegant, aber ist Mittel zum Zweck: Für jeden Platzhalter (Kat1) muss ich diesen Code einführen: Kat_1 = Range("B2") If Kat_1 = "K1" Then Kat1.Picture = LoadPicture(ActiveWorkbook.Path & "\goto_k.gif") Else End If If Kat_1 = "K2" Then Kat1.Picture = LoadPicture(ActiveWorkbook.Path & "\info_k.gif") Else End If Nun, bei 8 verschiedenen möglichen Bildern gibt es mehrere dieser If-Anweisungen. Könnte mir jemand sagen, wie ich das ganze mit einer Select-Case -Anwendung vereinfachen könnte? Danke!

Ich benutze eine VBA-UserForm. Die Datensätze stehen in einer Exceltabelle. Die UserForm tätigt anschliessend eine Abfrage (Suche) und sollte die Ergebnisse ausspucken, wobei nun eben die Kategorie-"nr" durch ein entsprechendes Bild ersetzt werden sollte. Wie muss ich das mit der Imagelist ggf lösen? Danke für die Hilfe Mätthu

Hallo! Ich erstelle zur Zeit eine einfache Eingabe/Ausgabemaske (Userform) mit Visual. Nun kann der Benutzer eine Kategorie wählen (OptionBox). Wird der Datensatz zu einem späteren Zeitpunkt (in einer Userform) wieder aufgerufen, soll der Option-Box Wert durch ein entsprechendes Bild ersetzt werden. Bsp: 1 => 2 => :eek 3 => etc... Wer kann mir da weiterhelfen? Danke für eure Hilfe!