Durch Auswahl in Comboboxen, Bild in Userform anzeigen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Durch Auswahl in Comboboxen, Bild in Userform anzeigen

    Hallo Zusammen,

    bin gerade dabei mit Excel einen Haustürkonfigurator zu basteln.

    Habe eine Userform mit 4 ComboBoxen erstellt (Modell, Bauform, Farbe und Glas).

    Je nach Zusammenstellung der Auswahlmöglichkeiten in den Comboboxen soll rechts daneben das entsprechende Bild angezeigt werden.
    Die Bilder selbst (bisher nur zwei eingefügt) befinden sich im 2. Tabellenblatt "Bilder"

    Fange durch dieses Thema erst an, mich mit VBA zu befassen, also habt Mitleid ;)

    Kann mir jemand den Code für die ersten Möglichkeiten geben? Dann verstehe ich es wahrscheinlich auch für die anderen Varianten und Bilder.
    Kann die Datei auch mit bestehendem Makro und Code per Email senden, falls jemand eine Lösung hat.

    Vielen Dank im Voraus.
    Dateien
    • Spielerei.xlsx

      (81,36 kB, 304 mal heruntergeladen, zuletzt: )
    Hallo,

    eine Userform ist da nicht bei. Im Prinzip würde ich die Bildernamen nach den Indexen der Comboboxen wählen. Bei 4 Comboboxen

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Sub ComboBox1_Change()
    3. Nameerstellen
    4. End Sub
    5. Private Sub ComboBox2_Change()
    6. Nameerstellen
    7. End Sub
    8. Private Sub ComboBox3_Change()
    9. Nameerstellen
    10. End Sub
    11. Private Sub ComboBox4_Change()
    12. Nameerstellen
    13. End Sub
    14. Private Sub UserForm_Initialize()
    15. Dim i As Integer
    16. With ComboBox1
    17. .Clear
    18. For i = 1 To 10
    19. .AddItem i
    20. Next
    21. End With
    22. With ComboBox2
    23. .Clear
    24. For i = 1 To 10
    25. .AddItem i
    26. Next
    27. End With
    28. With ComboBox3
    29. .Clear
    30. For i = 1 To 10
    31. .AddItem i
    32. Next
    33. End With
    34. With ComboBox4
    35. .Clear
    36. For i = 1 To 10
    37. .AddItem i
    38. Next
    39. End With
    40. End Sub
    41. Private Sub Nameerstellen()
    42. Dim s As String
    43. s = Format$(ComboBox1.ListIndex, "## 00")
    44. s = s & Format$(ComboBox2.ListIndex, "## 00")
    45. s = s & Format$(ComboBox3.ListIndex, "## 00")
    46. s = s & Format$(ComboBox4.ListIndex, "## 00")
    47. Label1.Caption = s
    48. End Sub


    In Label1 steht dann der Bildname.
    Gruß
    Peterfido

    Keine Unterstützung per PN!