Hinterlegten Link nach Suchwort vom anderen Blatt öffnen

[Safety-Tussi]

Hallo ;) 

ich bin nicht sehr erfahren in VBA-Programmierung und mein Makrorekorder hilft mir bei meinem Problem leider nicht weiter. Mit Hyperlink und Sverweis klappt das ganze auch nicht, ich brauche also definitiv ein Makro Vielleicht habt ihr ja noch einen Tip?

Folgendes Problem:
Ich habe in einer Excel-Datei 2 Tabellen. Gefahrstoffkataster und INFO. Jetzt möchte ich nach einem Wort aus dem Dropdown-Menü von Zelle B3 des Blattes INFO im Gefahrstoffkataster der Spalte "B" suchen und den dort hinterlegten Link öffnen. Leider öffnet er natürlich nur den Link von dem Dokument, dass ich beim Aufnehmen des Makros gerade im Dropdownmenü hatte. Hab schon versucht das Makro selber umzuschreiben, aber komme nicht weiter. Einen Button mit dem hinterlegten Makro hab ich schon angelegt und das ist, was ich bisher habe:

Code:

Sub openSDBneu()
'
' openSDBneu Makro
'
'
    Range("B3").Select
    Selection.Copy
    Sheets("Gefahrstoffkataster").Select
    Columns("B:B").Select
    Selection.Find(What:="MOR-AD 302", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("B19").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("INFO").Select
End Sub

Kann mir wer helfen?
Liebe Grüße :)

[WillWissen]

Hi,

lade doch bitte zusätzlich deine Datei (ohne Makros als .xlsx) hoch. So 20 Datensätze müssten reichen; sensible Daten bitte anonymisieren. Lies mal bitte hier: http://www.clever-excel-forum.de/thread-326.html

[Safety-Tussi]

ich hoffe das klappt so. hab nur relevante zeilen stehen gelassen und es sind keine links drin, is klar.
  TestMakro.xlsx (Größe: 18,42 KB / Downloads: 7)

[Safety-Tussi]

*schiieb* vielleicht kann mir ja doch noch jemand helfen?

[Fennek]

Hallo,

in der Tabelle sind keine hyperlinks und sheets("Liste") ist für mich unklar.

Hier ein Versuch, den Code in #1 zu verallgemeinern, ungeprüft:

Code:

Sub openSDBneu()
'
' openSDBneu Makro
'
'
dim rng as range
with sheets("Gefahrstoffkataster").columns(2)
   set rng = .Find(What:=sheets("Info").cells(3,2) LookIn:=xlValues _
       , LookAt:=xlPart)
   if not rng is nothing then rng.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
end with
End Sub

mfg

[Safety-Tussi]

Hallo,

in der Tabelle sind keine hyperlinks und sheets("Liste") ist für mich unklar.

Hier ein Versuch, den Code in #1 zu verallgemeinern, ungeprüft:

Code:

Sub openSDBneu()
'
' openSDBneu Makro
'
'
dim rng as range
with sheets("Gefahrstoffkataster").columns(2)
   set rng = .Find(What:=sheets("Info").cells(3,2) LookIn:=xlValues _
       , LookAt:=xlPart)
   if not rng is nothing then rng.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
end with
End Sub

mfg

Huhu ;)

danke für den Versuch! Leider zeigt er einen Fehler beim kompilieren an betreffend "LookIN". Die komplette Zeile wird rot angezeigt.
Das Blatt Liste ist schlichtweg der Inhalt des Pulldown-Menüs.
Herzlichen Dank für die Mühe.

Liebe Grüße
Claudia

[Fennek]

Hi,

in jedem Fall fehlt ein Komma vor "LookIn".

Im Moment kann ich es nicht mit xl testen, deshalb versuche es selbst zu debuggen.

Code:

Sub openSDBneu()
'
' openSDBneu Makro
'
'
dim rng as range
with sheets("Gefahrstoffkataster").columns(2)
  set rng = .Find(What:=sheets("Info").cells(3,2), LookIn:=xlValues , LookAt:=xlHole)
  if not rng is nothing then rng.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
end with
End Sub

mfg

[Safety-Tussi]

huhu ;)

er hat auf jeden fall ein Problem mit dieser zeile: .

 Set rng = .Find(What:=Sheets("INFO").Cells(3, 2), LookIn:=xlValues, LookAt:=xlHole)

beim debuggen zeigt er einen laufzeitfehler an

*wink*

[Steffl]

Hallo,

kaufen wir ein W :19:

Code:

LookAt:=xlWhole

[Safety-Tussi]

Hallo,

kaufen wir ein W  :19:

Code:

LookAt:=xlWhole

das wars leider auch nicht ^^