Office-Fragen.de

Hi Zusammen,
ich hab eine Exceldatei bei der in Spalte A in machen zellen ein Bild eingefügt wurde mit

Code:
PlacePictureInCell

die anderen Zellen sind leer. Es gibt auch keine Bilder die anders integriert wurden.

Nun möchte ich eine Schleife Programmieren, der die Zellen in Spalte A durchgeht und wenn diese ein Bild enthält soll eine MSGBox mit einer meldung geben.

Kennt da jemand eine Möglichkeit?

Hallo,

ist mir ein wenig zu wenig Information, was du da gibst.

Ich kann mir nicht vorstellen, das die MsgBox der Wahrheit letzter Schluss sein soll ...

Wie die Schleife aufgebaut ist, hängt immer ein wenig davon ab, was genau passieren soll.

Hi,

ist zwar nicht 100%, aber idR reicht die Prüfung auf HasRichDataType. Für C übergibst Du die Zelle, die überprüft werden soll.

Code:
Function BildInZelle(C As Range)

If C.HasRichDataType Then

    BildInZelle = True

End If

End Function

VG, Boris

Caldolan

Flotter Feger

{Boris}