Hallo,

Ich möchte über einen Schalter in Excel ermöglich, dass ein Foto in Spalte H in Blatt "Mängel Übersicht" eingefügt wird. Dazu habe ich folgenden Code benutzt

'#### ab hier Fotoupload
Sheets("Mängel Übersicht").Rows(intErsteLeereZeile).RowHeight = 70
'On Error GoTo ERR
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 'hier stimmt irgendwas nicht
With Selection.ShapeRange 'sobald ein anderes Arbeitsblatt aktiv ist, kommt hier eine Fehlermeldung. Wahrscheinlich ist die Zuweisung falsch
.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
'Exit Sub
'ERR:


Unload frmEingabe 'Formular Eingabe wird geschlossen
End Sub

Solange das Blatt "Mängel Übersicht" aktiv ist, klappt alles wunderbar. Wenn ich das Makro aber von woanders starte, kommt eine Fehlermeldung. Offensichtlich müssteich irgendwo noch zuweisen, dass er in dieses Blatt gehen soll, aber ich habe keine Ahnung wo.

Ist bestimmt ein ganz einfacherer Fehler, aber ich verzweifle im Moment daran.