Imagebox leeren?

[iceman2103]

Es geht um ein VBA Project in Excel! Ich habe eine userform mit einer imagebox. In dieser Imagebox soll nach einer Fallauswahl eine Bild angezeigt werden.

Private Sub userform_initialize()
Dim a As Integer
Worksheets("Tabelle3").Select
Label1 = a
Label1 = [A1] & " Liter auf 100Km"
'If a <= 9 Then Image1.Picture = LoadPicture("g:\daumen_3.gif")
'If a > 9 And a <= 10 Then Image1.Picture = LoadPicture("g:\neutral daumen.jpg")
If a > 10 Then Image1.Picture = LoadPicture("g:\daumen.gif")

End Sub


aber es funktioniert leider nicht so richtig

 

[Nirraven]

Äh, entweder ich überseh was, oder da fehlt was.

Wo soll a denn einen wert zugewiesen bekommen?
Und was ist [A1]?

 

[Chris B]

Wo wählt denn der User die Verbraucherzahl aus?

 

[iceman2103]

Habe es gelöst bekommen. Mir fehlte die zuweisung von a.

Private Sub userform_initialize()
Dim a As Integer
a = Sheets("Auswahl").Cells(2, 3)

Label1 = a & " Liter auf 100Km"


If a <= 8 Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & "daumen_3.gif")
If a > 8 And a <= 10 Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & "neutral daumen.jpg")
If a > 10 Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & "daumen_.gif")

End Sub

Trotzdem danke