Sheets("Mängel Übersicht").Rows(intErsteLeereZeile).RowHeight = 70
Dim DDDD As String
Dim CCCC As Range
Dim GGGG As Double
Dim SEGG
For Each SEGG In ThisWorkbook.Worksheets("Mängel Übersicht").Shapes
If Not Intersect(SEGG.TopLeftCell, ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)) Is Nothing Then SEGG.Delete
Next SEGG
Set CCCC = ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)
DDDD = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(DDDD, 3)
Case "ani", "apng", "jpeg", "jpg", "png"
ThisWorkbook.Worksheets("Mängel Übersicht").Pictures.Insert(DDDD).Select
With Selection.ShapeRange
.Top = CCCC.Top
.Left = CCCC.Left
GGGG = WorksheetFunction.Min(CCCC.Width / .Width, CCCC.Height / .Height)
.Height = .Height * GGGG
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt", 48, "Bild einfügen"
End Select
Unload frmEingabe
End Sub