Inventurliste in Excel mit Bildern

Question

Hallo zusammen,
ich möchte gerne eine Inventurliste in Excel (für Mac 2011) erstellen. Die Tabelle wird ca.
500 Artikeln führen. Die Liste ist bereits in Excel erstellt nun fehlen nur noch die Bilder, die
ich neben der Artikelnummer einfügen möchte.
Die Artikelnummer steht in Spalte B und das Villd soll in Spalte C eingefügt werden.
Ich habe leider noch gar nicht mit Makros oder VBA gearbeitet bin aber lernfähig. Es wäre
wirklich sehr nett, wenn mir jemand genau beschreiben könnte wie ich die Bilder
Importieren kann!

Answer 1

Hallo Joana,

upps, da war glaube ich ein kleiner Fehler im Aufruf der Testfunktion. Ersetze

If FileOrFolderExistsOnMac(1, strDatnam) Then

durch

If FileOrFolderExistsOnMac(strDatnam) Then

Beachte ggf. die Limitierung des Pfades inkl. Dateiname und Endung auf 32 Zeichen in Office 2011.

Gruß

M.O.

Answer 2

Hallo M.O.,


vielen vielen Dank, jetzt klappt der Code jedoch bekomme ich die Fehlermeldung "Bild nicht gefunden" in Spalte C.

Habe die Ordner und Fotos extra umbenannt um unter 32 Zeichen zu bleiben. Auch den Pfad habe ich kontrolliert.

Ich verstehe nicht warum die Bilder nicht gefunden werden.

Habe hier die Tabelle mal aufgemalt da ich keine Screenshots einfügen kann:

_________A___________B____________C___________D___________E___
1________Nr.__________Art.-Nr._______Bild_________Preis________Details

2________1___________S1___________Bild nicht____15,00€_______Anhänger
__________________________________gefunden

3________2___________S2___________Bild nicht____30,00€_______Anhänger
__________________________________gefunden

4________3___________S3___________Bild nicht____20,00€_______Anhänger
__________________________________gefunden


Viele Grüße,
Joana

Answer 3

Hallo Joana,

wenn keine Bilder eingefügt werden sind entweder
- die Namen der Bilder falsch
- der Pfad falsch
- die Erweiterung der Bilder falsch.

Im Code werden die Bildnamen ja mit der Endung ".jpg" versehen. Wenn ich mich richtig erinnere verwendet Apple ja ein eigenes Bilderformat. Also schau erstmal nach in welchem Format die Bilder vorliegen und passe die Endung in der Zeile

strDatnam = Pfad & Cells(Wiederholungen, 2).Value & ".jpg"

ggf. an.

Gruß

M.O.

Answer 4

Hallo M.O.,


der Name der Bilder kann nicht falsch sein, da ich den Namen des Bildes kopiere und danach direkt in Excel einfüge.
(Wenn mein Bild "S1.JPG" heißt, kopiere ich S1 in Excel)

Das Bildformat ist bei Apple zwar anders jedoch habe ich die Bilder ja mit einer Samsung Kamera gemacht, heißen also ".JPG" (macht es einen
Unterschied ob es groß geschrieben oder kleingeschrieben ist?)

Beim Pfad habe ich keine Ahnung was ich da noch machen soll. Die Bilder liegen alle im übergeordneten Ordner "Artikel", auf diesen Ordner
verweise ich bei meinem Pfad. Um auch da keinen Fehler zu machen öffne ich das Terminal und ziehe den Ordner per drag&drop hinein, und ich
bekomme den genauen Pfad geschrieben. Auch diesen kopiere ich wieder direkt in den Code.

Was meinst Du mit Erweiterung der Bilder?


Viele Grüße,
Joana

Answer 5

Hallo Joana,

mit Erweiterung meine ich die Endung der Bilder. Aber wenn diese .jpg ist, dann passt der Code.

Den Pfad kannst du dir mal wie folgt anzeigen lassen:
Speichere mal eine leere Tabelle im Verzeichnis, wo deine Bilder legen.
Dann füge in ein allgemeines Modul dieser Tabelle den folgenden Code ein und führe in aus:

Sub pfad()
ActiveSheet.Range("A1") = ThisWorkbook.Path
End Sub

Damit wird dir der aktuelle Pfad ausgegeben, allerdings ohne den letzten Slash bzw. Doppelpunkt. Damit kannst du die Schreibweise noch einmal überprüfen.

Gruß

M.O.

Answer 6

Hallo M.O.,

grandios! Da sieht man mal das der Mac über sich weniger weiß als Excel!

Durch den letzten Code wurde mir noch ein weiterer Teil des Pfades angezeigt!

Jetzt fügen sich die Bilder in die Excel-Liste ein. Aber... unter den Bildern wird trotzdem "Bild nicht gefunden" angezeigt obwohl das Bild ja
eingefügt wurde. Was passiert da?

Abe das wäre ja nur noch ein Luxusproblem!


Vielen herzlichen Dank!


Viele Grüße,
Joana

Answer 7

Hallo Joana,

hast du den Inhalt der Zellen vorher gelöscht?
Denn wenn die Bilder eingefügt werden, dürfte eigentlich keine Meldung eingefügt werden..
Ansonsten lösche den Codeteil:

Else
'falls nein, wird in Spalte C eine Fehlermeldung geschrieben
ActiveSheet.Cells(Wiederholungen, 3) = "Bild nicht gefunden"

Gruß

M.O.

Answer 8

Hallo, M.O.,

stimmt, hatte ich von vorher noch drin stehen...;)

Ich danke Dir für Deine nette und schnelle Hilfe!

Vielen vielen Dank!


Viele Grüße,
Joana

Answer 9

Hallo Joana,

gern geschehen ;-).

Gruß

M.O.