Hallo,
Mein Problem dürfte eigentlich nicht das komplizierteste sein.
Ich will per VBA Inserts von Bildern in ein Exceldatei machen und benutze dazu den beigefügten Teilcode. Das klappt auch, doch wenn kein Bild mit dem Namen aus Zelle F12 vorhanden ist, bekomme ich einen Laufzeitfehler.
Kann mir bitte jemand sagen wie der Code heisst welcher mich zu "weiter:" bringt, wenn das Bild mit dem Namen aus F12 nicht besteht?
Im Voraus besten Dank
Ant
Dim nameSelect As String
nameSelect = Range("F12")
picnameSelect = (nameSelect & ".JPG")
Dim dirSelect As String
dirSelect = "C:\Documents and Settings\.........."
Dim picSelect As String
picSelect = (dirSelect & picnameSelect)
' ???? If picSelect = "" Then GoTo weiter ????
Range("J11").Select
ActiveSheet.Pictures.Insert(picSelect).Select
Selection.ShapeRange.ScaleWidth 0.03, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.03, msoFalse, msoScaleFromTopLeft
weiter: