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


    In Label1 steht dann der Bildname.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende