ThisWorkbook.Path
09.11.2019 18:27:17
Thorsten
diesen Code habe ich umgeschrieben mit "ThisWorkbook.Path".
Leider funktioniert er nicht mehr.
Gebe ich den Dateipfad direkt ein, funktioniert alles einwandfrei.
Kann mir jemand bei der Fehlersuche behilflich sein?
Hier mein Code:
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
Lieben Dank bereits imVoraus.