VBA -> suchen -> finden -> öffnen?

[Westmaster81]

Hallo Zusammen,

ich bin VBA Anfänger, daher hoffe ich, dass ihr mir helfen könnt.

Ich habe folgendes Problem:

ich möchte via VBA ein Makro ausführen lassen was folgendes tut:

1. einen variablen Suchbegriff aus Tabellenblatt 1 in einer Spalte in Tabellenblatt 2 suchen
    -> der Suchbegriff wird vorher aus einer Indexformel ermittelt.

2. ist die Suche erfolgreich, so soll der Hyperlink von dem gefunden Suchbegriff geöffnet werden
    -> aber auch nur von dem gefunden Begriff

3. ich möchte diese Funktion auf einem Button in Tabellenblatt 3 zuweisen.


z.B. der Suchbegriff lautet "AA-01"

1. finde den Suchbegriff in Tabellenblatt 2, Spalte B
2. hast du ihn gefunden, dann öffne bitte den Hyperlink, welcher dort verknüpft ist.
3. wenn nicht, dann gib eine Fehlermeldung aus

Insgesamt wäre mein Ansatz eine IF Than Anweisung, nur weiss ich nicht wie ich dies ineinander verpacken soll.....

Die Formel für das öffnen des Hyperlinks habe ich schon. (ThisWorkbook.FollowHyperlink Address:=ThisWorkbook.Worksheets("Pivot Tabelle").Hyperlinks(1).Address)
nur bekomme ich die Suchfunktion nicht hin mit den variablen.....

Hinzu kommt noch, dass die Tabelle 2 auf Tabellenblatt 2 dynamisch ist. D.h. die Tabelle kann länger oder kürzer werden...

Ich hoffe ihr könnt mir helfen. 


LG André

[JereMaia]

Frage: Ist der gesuchte Begriff im Link als Text zu sehen, oder steht der Hyperlink in einer anderen Spalte der gleichen Zeile?

[Westmaster81]

Frage: Ist der gesuchte Begriff im Link als Text zu sehen, oder steht der Hyperlink in einer anderen Spalte der gleichen Zeile?

Hi JereMaia,



es ist eine Verknüpfung. D.h. es steht dort Link 1 wenn man dann darauf drückt, kommt man zu der Verlinkung z.b. zu einer PDF Datei,einer Webseite, o.ä.

er steht auch sonst an keiner anderen Stelle. Soll auch nicht in Betracht kommen den Link auszulesen. (Habe damit auch schon experimentiert)




Habe mal kurzerhand eine kleine Excel Tabelle als Beispiel gebaut.

[JereMaia]

Hier eine Beispielmappe wie ich es verstanden habe:


  Begriff_Suchen.xlsm (Größe: 24,49 KB / Downloads: 4)

[Westmaster81]

Hier eine Beispielmappe wie ich es verstanden habe:

genau das wäre es, ohne die Msgbox.

Danke dafür !!! :)

Jetzt versuche ich deinen Code einmal zu verstehen, damit ich weiss, wie er das genau macht....

[Westmaster81]

Hi,

wie muss ich deinen Code anpassen, damit er auch "Hyperlinks" zu internen Dateipfaden öffnet?

z.B. zu dem Ordner  "Bilder" oder zu einem anderen Laufwerk?

[JereMaia]

Ich ein kleines Beispiel. Bei dem Versuch ein PDF-Dokument zu öffnen hat sich mein Excel allerdings verabschiedet. Keine Ahnung warum. Eine Textdatei geht z.B.


  Begriff_Suchen-002.xlsm (Größe: 25 KB / Downloads: 5)