Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 129
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von enronhb vom 11.07.2017, 19:05 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Mit Artikelnummer Bild anzeigen lassen? Excel

 (444 Hits)

Hallo und schönen Abend,

ich habe bereits Google bemüht und auch Ähnliche Fragestellungen dabei gefunden. Leider aber nichts, was mir weiter geholfen hat.

Bin Amatuer im Excel und hatte mir das folgende nicht so schwierig vorgestellt.

Ich möchte z.B. in Tabelle1 Zelle A2 eine Artikelnummer eingeben. Und dann in Zelle A4 das passende Bild dazu angezeigt bekommen. Welches in Tabelle2 z.B. auf A3 liegt. Oder wenn das besser geht, auch aus einem Ordner vom Server. Da es irgendwann recht viele Bilder sein werden.

Nun dachte ich etwas naiv, das ginge doch mit dem SVerweis mit dem ich auch etwas info text der Artikelnummer zu Ordne. Leider wohl Falsch gedacht.

Kann da jemand helfen? Am besten ausführlich und schritt für schritt erklärt?

Eine Artikelnummer könnte sein 270KB10 und darunter sollte dann das Bild dazu angezeigt werden. Und daneben ein Info text. Den text würde ich mit dem SVerweis machen. Aber Bilder?

Vielen Dank


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 12.07.2017, 09:54 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

wenn es nur ein paar Bilder sein sollen, dann schau dir mal das hier an: Bilder per Formel einfügen

Sollte das aber z.B. ein Katalog werden mit vielen Bildern, so kann man das auch per Makro lösen.

Kopiere den folgenden Code in ein Standardmodul deiner Excel-Tabelle.
Public Function ZeigeBild(ByVal strBildname As String, Bildhöhe As Long) As String

Dim strDatei As String
Dim Bildbreite As Double
Dim Bildhoehe As Double
Dim meinBild
Dim strZielzelle As String

strZielzelle = Application.Caller.Address

'Pfad in dem die Bilder liegen ggf. anpassen
strDatei = "C:\Test\" & strBildname & ".jpg"

If Dir(strDatei) <> "" Then
  Set meinBild = LoadPicture(strDatei)
  Bildbreite = meinBild.Width
  Bildhoehe = meinBild.Height
  'zur Umrechnung von Zentimetern in Punkte: 1 cm = 28,35 pt
  ActiveSheet.Shapes.AddPicture strDatei, msoFalse, msoTrue, Range(strZielzelle).Left, Range(strZielzelle).Top, Bildhöhe * 28.35 * Bildbreite / Bildhoehe, Bildhöhe * 28.35
  ZeigeBild = "Bild"
 Else
  ZeigeBild = "Bild nicht vorhanden"
End If

End Function


Den Pfad, in dem deine Bilder liegen, musst du natürlich entsprechend anpassen. Ich bin mal davon ausgegangen, dass die Bilder als .jpg-Datei vorliegen. Die Endung musst du ggf. auch noch anpassen.

Der Aufruf erfolgt dann durch die folgende Formel:
=ZeigeBild(A4;3)
A4 ist dabei die Zelle, in der der Bildname, hier deine Artikelnummer - ohne Endung - steht. Die Zahl hinter dem Semikolon gibt die Bildhöhe in cm an. Das Bild wird dann skaliert in die Zelle eingefügt, in der die Formel steht.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 2 von enronhb vom 13.07.2017, 14:11 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

vielen dank dafür. das hat mich schon weiter gebracht. Auch das endlich mal erklärt wird, wo man das "modul" findet um code rein zu kopieren.

Leider werden mir noch keine Bilder angezeigt. Ich erhalte aber immerhin schon die Meldung aus dem code " Bild nicht Vorhanden"
ich habe jetzt mit verschiedenen Bildnamen als jpg und verschiedenen quell pfaden versucht. Irgendwas mache ich noch falsch.

vielleicht noch einen Tipp?

Es ist auf excel 2010. Wie oben beschrieben eingefügt.

Danke.


Antwort noch nicht bewertet
Antwort 3 von M.O. vom 13.07.2017, 15:23 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

überprüfe mal, ob die Bildnamen mit den Namen in deiner Tabelle übereinstimmen.
Überprüfe ob deine Pfadangabe mit einem \ endet (siehe oben im Code).
Die Zellangabe in der Formel ist auch richtig?
Kopiere einfach mal einen Bildnamen aus einem Verzeichnis und füge den Namen ohne Endung in eine Zelle ein.
Hast einen Windowsrechner oder einen MAC?

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 4 von enronhb vom 14.07.2017, 07:35 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Moin moin,

habe das nochmal probiert. und ein \ hinter den Pfad angefügt.

Bekomme jetzt auch nicht mehr "Bild nicht Vorhanden" angezeigt. sondern nur noch #Name? als Fehler.
auch wenn ich die Änderung zurück nehme.

--

Public Function ZeigeBild(ByVal strBildname As String, Bildhöhe As Long) As String

Dim strDatei As String
Dim Bildbreite As Double
Dim Bildhoehe As Double
Dim meinBild
Dim strZielzelle As String

strZielzelle = Application.Caller.Address


strDatei = "pfad zum Bild\" & strBildname & ".jpg"

If Dir(strDatei) <> "" Then
Set meinBild = LoadPicture(strDatei)
Bildbreite = meinBild.Width
Bildhoehe = meinBild.Height

ActiveSheet.Shapes.AddPicture strDatei, msoFalse, msoTrue, Range(strZielzelle).Left, Range(strZielzelle).Top, Bildhöhe * 28.35 * Bildbreite / Bildhoehe, Bildhöhe * 28.35
ZeigeBild = "Bild"
Else
ZeigeBild = "Bild nicht vorhanden"
End If

End Function


Antwort noch nicht bewertet
Antwort 5 von M.O. vom 14.07.2017, 07:57 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

der Backslash am Ende des Pfades ist nowendig. Wie sieht denn deine Formel aus?

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 6 von enronhb vom 14.07.2017, 08:05 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Moin,


die Formel habe ich so gelassen. Und nur für den Aufruf geändert. Und den Pfad eingefügt.

Auch mit verschiedenen Pfaden Probiert.

------

=ZeigeBild(B4;3)

-------

Public Function ZeigeBild(ByVal strBildname As String, Bildhöhe As Long) As String

Dim strDatei As String
Dim Bildbreite As Double
Dim Bildhoehe As Double
Dim meinBild
Dim strZielzelle As String

strZielzelle = Application.Caller.Address


strDatei = "U:\\Pfad zum Bild Ordner\" & strBildname & ".jpg"

If Dir(strDatei) <> "" Then
Set meinBild = LoadPicture(strDatei)
Bildbreite = meinBild.Width
Bildhoehe = meinBild.Height

ActiveSheet.Shapes.AddPicture strDatei, msoFalse, msoTrue, Range(strZielzelle).Left, Range(strZielzelle).Top, Bildhöhe * 28.35 * Bildbreite / Bildhoehe, Bildhöhe * 28.35
ZeigeBild = "Bild"
Else
ZeigeBild = "Bild nicht vorhanden"
End If

End Function


Antwort noch nicht bewertet
Antwort 7 von M.O. vom 14.07.2017, 10:24 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

der Fehler #Name? deutet eigentlich darauf hin, dass in der Formel irgendein Schreib- oder sonstiger Fehler vorhanden ist.
Beachte dass die Formel nur in der Arbeitsmappe funktioniert, in der das Makro gespeichert ist.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst
Antwort 8 von enronhb vom 14.07.2017, 12:13 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Danke,

ja es gibt nur die eine Arbeitsmappe. gestern wurde ja immerhin "bild nicht Vorhanden" angezeigt. und da gab es keine Änderung. Versteh auch nicht was falsch geschrieben sein könnte. ich versuche es sonst nochmal komplett neu.



MfG


Antwort noch nicht bewertet
Antwort 9 von Coros_o_Anmeld vom 15.07.2017, 16:28 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi!

Wenn Du die Funktion wie in AW6 in Deiner Arbeitsmappe hast, dann lösche doch mal den 2. Backslash (\) hinter dem Laufwerksbuchstaben "U:".
2 Backslash gibt es nur wenn es sich um ein Netzlaufwerk handelt, dann steht aber kein Laufwerksbuchstabe an 1. Stelle, sondern die beiden Backslash.

Gruß,
coros


Antwort noch nicht bewertet
Antwort 10 von enronhb vom 16.07.2017, 09:51 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo und guten Morgen.


leider immer noch nichts. das zweite \ weglassen bringt keine veränderung mit sich.
Ich erhalte einfach kein bild angezeigt.
Vielleicht mag sich das mal jemand ansehen? ob es dort funktioniert.

Datei von filehorst.de laden


Antwort noch nicht bewertet
Antwort 11 von M.O. vom 16.07.2017, 13:38 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

bei deinem Pfad fehlt der letzte Backslash! Ergänze ihn, dann sollte es funktionieren.
Bei mir funktioniert das Makro (mit angepasstem Pfad) jedenfalls.

Falls es auf dem Netzlaufwerk nicht klappt, versuch mal probehalber ein Bild aus einem Verzeichnis
in deinem Laufwerk C zu laden.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Sun Nov 12 22:19:35 2017