Bilder in Zelle auslesen und auswerten
Hallo Zusammen,
ich bekomme aus einem System Werte ausgegeben, die ich gerne auswerten möchte. Die Struktur ist eigentlich simpel:
Spalte 1 = Identifikationsnummer (Nummer)
Spalte 2 = Name (Text)
Spalte 3 = Stadt (Text)
Spalte 4 = Geschlecht (leider nur als Pic nicht aber als Text)
Spalte 5 = Umsatz
Die Bilder in der Zelle werden leider durch das System ausgegeben, da kann ich nicht viel ändern. Also ist mein Ansatz, diese einfach auszuwerten. Ich habe 4 Namen für die Bilder:
image1.png = für aktive männliche Nutzer
image2.png = für passive männliche Nutzer
image3.png = für aktive weibliche Nutzer
image4.png = für passive weibliche Nutzer
Mein Ansatz ist folgernder:
Varianter 1
Einfach nach dem image3.png filtern. Nur weiß ich leider nicht, wie man Grafiken filtern kann.
Variante 2
In Spalte 6 einfach den Wert Name der Datei in die gleiche Zeile in Spalte 6 ausgeben. Sobald ich alle Dateinamen als Text habe, filtere ich einfach nach dem Text.
Ich habe sowohl im Netz als ich auch hier gesucht, finde dafür aber keinen Ansatz.
Bin für jeden Tipp sehr dankbar!
LG, Chico ;)
ich bekomme aus einem System Werte ausgegeben, die ich gerne auswerten möchte. Die Struktur ist eigentlich simpel:
Spalte 1 = Identifikationsnummer (Nummer)
Spalte 2 = Name (Text)
Spalte 3 = Stadt (Text)
Spalte 4 = Geschlecht (leider nur als Pic nicht aber als Text)
Spalte 5 = Umsatz
Die Bilder in der Zelle werden leider durch das System ausgegeben, da kann ich nicht viel ändern. Also ist mein Ansatz, diese einfach auszuwerten. Ich habe 4 Namen für die Bilder:
image1.png = für aktive männliche Nutzer
image2.png = für passive männliche Nutzer
image3.png = für aktive weibliche Nutzer
image4.png = für passive weibliche Nutzer
Mein Ansatz ist folgernder:
Varianter 1
Einfach nach dem image3.png filtern. Nur weiß ich leider nicht, wie man Grafiken filtern kann.
Variante 2
In Spalte 6 einfach den Wert Name der Datei in die gleiche Zeile in Spalte 6 ausgeben. Sobald ich alle Dateinamen als Text habe, filtere ich einfach nach dem Text.
Ich habe sowohl im Netz als ich auch hier gesucht, finde dafür aber keinen Ansatz.
Bin für jeden Tipp sehr dankbar!
LG, Chico ;)
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 544008
Url: https://administrator.de/forum/bilder-in-zelle-auslesen-und-auswerten-544008.html
Ausgedruckt am: 05.04.2025 um 06:04 Uhr
10 Kommentare
Neuester Kommentar

Ich habe 4 Namen für die Bilder:
Die Namen bringen dir nichts wenn die Bilder eingebettet sind. Excel verwirft die Namen und gibt den Bildern zufällige neue Namen und IDs. Du kannst höchstens nach Größe oder Titel oder Alternativer Text (in den Eigenschaften der Bilder) filtern wenn dort hinterlegt ist um was es sich handelt.
Zitat von @chicagojaner:
@142232
die Größe ist Identisch, Titel und alternativer Text ist nicht vorhanden. Leider...
Dann wirst du um manuelles Spezifizieren nicht herum kommen, außer du speicherst die Bilder per Code und wertest dann die Pixel aus.@142232
die Größe ist Identisch, Titel und alternativer Text ist nicht vorhanden. Leider...

Logik kann aber nicht alles 
Die Bilder werden über Shapes im Worksheet angespochen und in allen Eigenschaften findest du den Original Namen nicht wieder.
Guckst du ...
Per VBA lassen sich Bilder automatisiert rotieren, d.h. sie sind auch greifbar.
Sind sie schon, aber der Dateinamen ist in keiner Eigenschaft mehr gespeichert, glaubs mir doch.Die Bilder werden über Shapes im Worksheet angespochen und in allen Eigenschaften findest du den Original Namen nicht wieder.
Ich muss also raufinden, wie ich den Namen der Datei einfach in eine andere Spalte exportieren kann.
Die gibt es aber nicht, die einzigen Eigenschaften sind Name, ID, Title, AlternativeText die du nutzen kannst, aber die sind wie gesagt nicht mit den ursprünglichen Namen gefüllt weil sie eingebettet wurdenGuckst du ...
Sub Test()
Dim shp As Shape
With ActiveSheet
For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell = cell.Offset(0, 3) Then
msgbox "Name für Bild Zelle " & cell.Offset(0, 3).Address & " lautet " & shp.Name
Exit For
End If
Next
Next
End With
End Sub