ThisWorkbook.Path

Private Sub ComboBox3_Click()
Range("B12") = ComboBox3.Value
On Error Resume Next
Sheets("Übersicht Leuchten").Shapes("Leuchte_3").Delete
On Error GoTo 0
Dim rngZielZelle As Range, Datei As String
Dim xPfad As String, xBilder As String
xPfad = ThisWorkbook.Path & "Bilder\"
Set rngZielZelle = Sheets("Übersicht Leuchten").Cells(12, 3)
Datei = xPfad & Dir(xPfad & Me.ComboBox3.Text & ".*")
If Datei  xPfad Then
With Sheets("Übersicht Leuchten").Pictures.Insert(Datei)
With .ShapeRange
.LockAspectRatio = msoTrue
If .Height > Sheets("Übersicht Leuchten").Cells(9, 3).Height Then .Height =  _
rngZielZelle.Height - 15
If .Width > Sheets("Übersicht Leuchten").Cells(9, 3).Width Then .Width =  _
rngZielZelle.Width - 15
End With
.Placement = xlMoveAndSize
.Top = rngZielZelle.Top + ((rngZielZelle.Height - .ShapeRange.Height) / 2)
.Left = rngZielZelle.Left + ((rngZielZelle.Width - .ShapeRange.Width) / 2)
Set Pic = Sheets("Übersicht Leuchten").Shapes(Sheets("Übersicht Leuchten").Shapes. _
Count)
Pic.Name = "Leuchte_3"
End With
End If
End Sub