Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da

Ja hallo,
Da habe ich ja heute ein neues Wort gelernt. Crossposting.  Sorry dafür. Aus meiner sicht hat das sinn ergeben. verschiedene Wege / Ansätze erhalten. Das eine hilft das andere zu verstehen...
Wohl gewohheit, heute schaut man im Netz bei (fast) allem nach verschiedenen quellen.
OK ist in der Form nicht gerne gesehen, habe ich Verstanden.

Moin moin,

ich habe bereits viel Google befragt, viel herum Probiert und weiß das das häufigste Problem der Nutzer selbst ist ;-)

ich komme dennoch nicht weiter. Und bin Neuling in dem Bereich.

Ich möchte durch das eingeben einer Artikelnummer ein Bild anzeigen lassen. Aus einem Ordner vom Server. Das soll unter Excel 2010 laufen. Und Windows.

Der Code sieht so aus:

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 = C:\Users\Ordner\BILDER\" & 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 FunctionREM ***** BASIC *****


Und in der Zelle in der das Bild gezeigt werden soll:

=ZEIGEBILD(C4;3)

In dieser Zelle C4 würde die Artikelnummer eingegeben. Die genauso lautet wie der Name den Bildes ohne Endung .jpg im Ordner.

Leider Funktioniert es nicht. Ich erhalte auch nicht mehr die Meldung "Bild nicht vorhanden" Was zuerst immerhin noch kam. (Ohne Änderungen gemacht zu haben.)

Kann jemand einen Tipp geben Bitte?

Danke bis hierhin für die mühe.

MfG