Clever-Excel-Forum

Seiten: 1 2

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 :)

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

ich hoffe das klappt so. hab nur relevante zeilen stehen gelassen und es sind keine links drin, is klar.[attachment=9999]

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

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

(06.03.2017, 09:22)Fennek schrieb: [ -> ]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

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

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*

Hallo,

kaufen wir ein W :19:

Code:
LookAt:=xlWhole

(06.03.2017, 12:39)Steffl schrieb: [ -> ]Hallo,

kaufen wir ein W :19:

Code:
LookAt:=xlWhole

das wars leider auch nicht ^^

Seiten: 1 2

Safety-Tussi

WillWissen

Safety-Tussi

Safety-Tussi

Fennek

Safety-Tussi

Fennek

Safety-Tussi

Steffl

Safety-Tussi