Bild in Zelle? Per Formel prüfen (xl365)

{Boris} · 2024-07-31T15:34:23+00:00

Hallo zusammen, ich muss (möglichst zuverlässig) per Formel prüfen, ob sich in einer Zelle ein Bild befindet (also "Bild in Zelle"). VBA ist in diesem Fall absolut ausgeschlossen. Beispieldatei anbei: https://www.herber.de/bbs/user/171378.xlsx Es ist so, dass die "Bildzelle" - sofern ein Bild dort richtig eingebettet ist - {WERT!} zurückgibt. Man beachte: in {geschweiften Klammern}. =ISTFEHLER(DieseZelle) ergibt demnach FALSCH. Daher habe ich bislang wie folgt formuliert: =WENN(ISTFEHLER(LÄNGE(B2))*NICHT(ISTFEHLER(B2));"Perfekt!";"Bitte Bild in Zelle einbetten.") Meine Frage: Hab ich was übersehen bzw. wie würdet ihr das abfragen? Danke vorab und viele Grüße Boris

Moin Boris,

also, mit dem ausgeschlossenen VBA hätte ich hier 3 Fälle zur Unterscheidung

0) weit und breit kein Bild da - zumindest nicht mit der betreffenden Ecke in der zu prüfenden Zelle als Voraussetzung für das Einbetten :-) (F2:H2)
1) das Bild ist eingebettet (B2) - mit Deiner Formel als Grundlage, aber etwas abgewandelt. Ob das besser geht hab ich jetzt nicht geprüft :-(
2) das Bild ist nicht eingebettet (C2:H2)

Bei der Funktion kannst Du natürlich statt Integer auch String zurückgeben, wenn Du statt der Zahlen Texte vorgibst. Bei Variante 0 sollte das Ergebnis in der Zelle dann nix erscheinen.
Geht so allerdings nicht per Formel, umzusetzen. :-( Zumindest könnte damit wohl Deine offene Frage
https://www.herber.de/forum/archiv/1968to1972/1969826_Excel_365_VBA_Befindet_sich_ein_Bild_IN_einer_Zelle.html
abgeschlossen werden.

Function HasPic(Cell As Range) As Integer

   Dim Pict   As Object

   Dim rngPict As Range

   'Application.Volatile

   For Each Pict In Application.Caller.Parent.Pictures

      Set rngPict = Range(Pict.TopLeftCell, Pict.BottomRightCell)

      If Not Intersect(rngPict, Cell) Is Nothing Then

         HasPic = 2

      End If

   Next Pict

   If IsError(Application.Evaluate("[LEN(" & Cell.Address & ")]")) - Not IsError(Cell) * Cell.HasRichDataType Then

        HasPic = 1

   End If

End Function

Hi André,

vielen Dank für Deine Antworten!

In diesem Fall ist es aber so, dass das definitiv ohne VBA geschehen muss.

Ich muss auch gar nicht wissen, ob da z.B. ein Bild vorhanden, aber nicht eingebettet ist.

Die einzige notwendige Info ist: Ist in der Zelle ein Bild eingebettet - ja oder nein. Das Ergebnis WAHR/FALSCH reicht völlig aus.

Und dafür habe ich ja eine Formel - wollte aber von Euch wissen, ob ich da vielleicht irgendwas übersehen habe :-)

Kurz zum Hintergrund: Es handelt sich um ein Formular, das von vielen Leuten bearbeitet wird. Diese Formular darf - aus verschiedensten Gründen - keinen VBA-Code enthalten. Ich möchte den Anwendern aber eine Vollständigkeitsprüfung anzeigen - und zwar mit Formeln:

Einerseits das Befüllen bestimmter Zellen, aber am Ende MUSS auch in der dafür vorgesehenen Zelle ein Bild eingebettet werden, weil das für meine Weiterverarbeitung halt zwingend erforderlich ist. Erst wenn alles korrekt erledigt ist, sieht der Anwender einen grünen Haken, womit er weiß, dass er die Datei so speichern kann.
Und zu dem "grünen Haken" gehört halt auch, dass sich in der entsprechenden Zelle ein eingebettetes Bild befindet.

Am Ende sind das ca. 200 Dateien, die ich automatisch weiterverarbeiten muss. Und natürlich überprüfe ich die dann später mittels VBA, ob in den entsprechenden Zellen Bilder eingebettet wurden - aber ich möchte die Fehlerquote halt von vornherein so klein wie möglich halten.

Ich hoffe, damit wurde mein Anliegen etwas klarer ;-)

Viele Grüße

Boris

Bild in Zelle? Per Formel prüfen (xl365)

Forumthread: Bild in Zelle? Per Formel prüfen (xl365)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
2				#WERT!		#WERT!	Irgendein weiterer Text
3
4
5	Check:	Perfekt!	Bitte Bild in Zelle einbetten.	Bitte Bild in Zelle einbetten.	Bitte Bild in Zelle einbetten.	Bitte Bild in Zelle einbetten.	Bitte Bild in Zelle einbetten.	Bitte Bild in Zelle einbetten.
6
7		FALSCH	WAHR	WAHR	WAHR	FALSCH	FALSCH	FALSCH
8		WAHR	WAHR	WAHR	WAHR	FALSCH	FALSCH	FALSCH

Bild in Zelle? Per Formel prüfen (xl365)

Forumthread: Bild in Zelle? Per Formel prüfen (xl365)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread