Hallo,

Ich habe ein Excelsheet, in dem sich in bestimmten Zeilen, immer in der gleichen Spalte, Bilder befinden. Diese habe ich über folgenden Code eingebunden (falls das wichtig ist)

'#### 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
Sheets("Mängel Übersicht").Activate

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:

Sheets("Startbildschirm").Select
Unload frmEingabe 'Formular Eingabe wird geschlossen

An anderer Stelle möchte ich dann Zählen, in welchen Zeilen sich keine bilder befinden. Dazu habe ich diesen Code benutzt

If Cells(zeilenzähler, 8) <> "" Then MsgBox Test

anscheind zählt ein Foto aber nicht als Inhalt, denn auch Zeilen, die nicht "", also leer, sein dürften, werden mir als ohne Foto angezeigt.

Kann ich auf andere Art erkennen lassen, ob sich schon ein Foto in der Zelle befindet?