Office: (Office 2010) in Userform Hyperlinks mit auslesen und folgen

Servus zusammen,
folgende Situation:

ich habe eine Datenbank mit Excel angelegt. Dort sind zu verschiendenen Materialnummer weitere Daten eingepflegt, wie z.B. der Lagerort und ob das Material einen Barcode aufgelasert bekommt.
Über eine Userform (Excel 2010), bei der in Textfeld 1 die Materialnummer eingegeben wird, werden dann aus dem Sheet die dazugehörigen weiteren Daten ausgelesen und in Textfeldern angezeigt.
Nun sind in einigen Zellen von Spalte E die Einträge mittels Hyperlinks mit Bildern verlinkt. Wenn ich die Zelle also anklicke, öffnet sich in einem neuen Fenster das entsprechende Bild.
Wie kann ich denn diese aus der Userform heraus öffnen, entweder per Doppelklick ins entsprechende Textfeld 4 oder mittels Extra-Button, besser vielleicht über eine Anzeige direkt in der Userform?
Das Bild sollte dann wieder in einem neuen Fenster geöffnet werden. Ist kein Hyperlink vorhanden, sollte einfach die Meldung "Kein Bild vorhanden" kommen.

So schaut der Code fürs suchen und anzeigen aus:
Code:

die entsprechende Zelle im Sheet (mit dem hinterlegten Hyperlink) wird unter "Me.TextBox4.Text = rngFind.Offset(0, 4).Text" gefunden.
Vielleicht hat ja jemand eine Lösung, wie ich jetzt den entsprechenden Hyperling dazu anwählen kann.

Vielen Dank schon mal,
Gruß Rene

:)

 

Hallo Rene,

Aua, ich verwende Excel als Tabellenkalkulationsprogramm. *entsetzt
Eine Datenbank solltest Du mit Access bearbeiten. *rolleyes.gif*

Bemüh doch mal Tante G. zur Suche nach Excel VBA Hyperlink auslesen und LoadImage.

 

Hi Rene,

nach folgendem Prinzip kannst du dem Hyperlink in einer Zelle (im Beispiel A3) folgen:

Code:

Und prüfen, ob ein Hyperlink vorhanden ist, kannst du so

Code:

 

nun ja, wenn man in der Firma kein Access hat, muss man mit dem arbeiten, was man hat, das hat nix mit Aua zu tun.
Und wenn ich nicht die Tante G schon bemüht hätte, würde ich mich nicht an ein Forum wenden...

 

vielen Dank, aber das bringt mich nicht wirklich weiter, da ich ja nicht den Link zu einer bekannten, festen Zelle suche, sondern zu einer variablen, sprich, in der Userform kenne ich die Zelle, in welcher sich der Hyperlink befindet, nicht.
Der Wert, welcher in Textbox1 eingegeben wird, steht irgendwo in Spalte A und wird gesucht. und in dieser Zeile befindet sich dann die Zelle in Spalte E mit der entsprechenden Hyperlinkverknüpfung.
Ich gebe also z.B. in Textbox1 den Wert "71207385" ein und gehe auf "Suche".
Nun wird in Spalte A der Wert gesucht und z.B. in A12 gefunden. Somit wird in Textbox4 damit der Wert aus A12 + Offset 4, also in E12, gefunden und ausgegeben. und in E12 ist dann auch der Hyperlink.
ich brauche also etwas, was "ActiveSheet.Range("A3")" ersetzt durch: Suche Wert aus Textbox1 und Spalte A und nimm dann einen Offset +4 (Spalte E) und gib diesen Hyperlink aus.

 

Mit deiner Suchroutine weißt du doch, in welcher Zeile (Zelle) du dich befindest - wo ist also das Problem, anstelle Range("A3") dein rngFind.Offset(0, 4) zu verwenden?

 

danke Beverly, jetzt funktioniert es.

 

noch eine Frage:
das Bild hinter dem jeweiligen hyperlink lasse ich mir direkt in der Userform in der Imagebox anzeigen.
Wie kann ich denn das ganze jetzt über nen Commandbutton ausdrucken?

 

Drucken kann man ein UserForm mittels Me.PrintForm

 

ich möchte ja nicht die ganze Userform ausdrucken, zumal die eh nicht aufs Bild passt, sondern nur das Bild hinter dem gefundenen Hyperlink

 

Benutze ein gesondertes Userform für die Anzeige des Bildes und drucke dieses dann aus.