@Beverly
Frank
Bin voll auf zufrieden mit deinem Code:
Private Sub CommandButton1_Click()
If Not Me.Image1.Picture Is Nothing Then
Image1.Picture = Nothing
End If
Image1.Picture = LoadPicture("N:\CD - Cover\" & TextBox1 & ".jpg")
DoEvents
End Sub
Da ich mich aber immer noch mit VBA etwas schwer tue, meine Frage. Was muss ich erweitern, das die Sub beendet wird, wenn keine Datei vorhanden ist? Es soll dann nicht die automatische Fehlermeldung erscheinen sondern eine von mir gestaltete MsgBox. Bitte kannst du helfen?Danke!!!
Gruß Frank H.!!!