Office: Bedingter Hyperlink in Sheet, der bestimmten Wert mitnimmt

Mahlzeit,

ich habe ein sehr spezielles Problem: Ich möchte in AO60 einen Hyperlink anlegen, der je nach dem, was in X60 steht (A, B oder C) in der selben Mappe auf Sheet A, B oder C springt.

Um das ganze noch komplizierter zu machen gibt es noch zwei Spezifikationen: zuerst kann es sein, dass der Hyperlink nicht nur in AO60 kommen soll, sondern auch in den Zeilen unter AO60, der Link müsste also irgendwie dynamisch werden [das kann man aber gut festmachen, z.B. muss ab Zeile 60 immer ein Hyperlink kommen, wo X<>""].

Das zweite Problem ist, dass der Hyperlink auch noch einen bestimmten Wert mitnehmen müsste, nämlich den, der Spalte V der gewählten Reihe (also in dem Beispiel V60) ist. Der Wert sollte dann beim Rüberhüpfen in Sheet A, B oder C (je nach dem halt, was in X60 steht) in irgendeiner Zelle, z.B. A1 dort stehen.


Kriegt man das hin, und wenn ja, wie??

Danke und liebe Grüße,
Sonny

 

Hallo,

könntest Du mal ne kleine Bsp.-Datei posten?
Mit SOLL und IST Zustand ggf.

 

Ein wenig weiter bin ich ja schon...

Hi Silex,

ich habe heute noch herumgebastelt und schon ein wenig was geschafft -- siehe angehänge Datei.

Dort habe ich in AO60:64 mal die Hyperlinks, und die Kopie des Wertes von W60 usw. funktioniert eigentlich auch schon.

De facto habe ich jetzt aber das Problem, dass der Klick auf den Hyperlink das Makro aber nicht auslöst, sondern nur wenn man auf die Zelle selber klickt (habe ich vielleicht ein falsches Event genommen?). Außerdem hätte ich gerne, dass der Range im Makro nicht hart codiert ist, sondern auf die Zelle AD46 referenziert.

By the way: Hast du eine Idee, warum der Hyperlink mit C nicht funktioniert?

Danke für deine Mühen!

Ach ja - wenn mein Ansatz völliger Humbug ist bin ich immer für bessere Ideen offen, ich hänge emotional nicht an meiner derzeitigen Variante :-)

lg Sonny

 

Hallo,

dass Du den völligen Vollpfosten fragst, was VBA angeht, ist Dir aber schon bewußt! :mrgreen:

Dein Code läuft los, wenn Du was in die Zelle einträgst.
Da dort aber dann die Linkformel steht, merkt der Code es nicht.

Mal ne ernsthafte Frage...was willst Du wirklich erreichen?


Hier der Code für die Wissenden...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   If Not Intersect(Target, Range("AO60:AO64")) Is Nothing Then
                            'hier hätte ich gerne statt dem fixen Range eine Referenz auf AD47

    If Cells(ActiveCell.Row, 22).Value = "A" Then
    
    Sheets("A").Cells(1, 1).Value = Sheets("Tabelle1").Cells(ActiveCell.Row, 23).Value
  End If
    If Cells(ActiveCell.Row, 22).Value = "B" Then
    
    Sheets("B").Cells(1, 1).Value = Sheets("Tabelle1").Cells(ActiveCell.Row, 23).Value
  End If
  If Cells(ActiveCell.Row, 22).Value = "C" Then

    Sheets("C").Cells(1, 1).Value = Sheets("Tabelle1").Cells(ActiveCell.Row, 23).Value
  End If
    Else

    End If
End Sub

 

Hallo Sonny,

als ich gestern Deine Frage las, dachte ich Du wolltest die Geschichte mittels Formeln lösen.
(Geht irgendwie, glaube ich, habe es aber nicht so ganz hinbekommen.)

Das Du mit VBA arbeiten willst, hättest Du vorher sagen sollen.
Viele "fürchten" sich davor.
(Ich ganz am Anfang auch...)


Mit VBA kannst Du auf die Hyperlinks verzichten, das kompliziert nur unnötig.
Wenn Du eh schon eine Abfrage über "SelectionChange" hast, ob die selektierte Zelle im definierten Bereich liegt, dann kann man den Rest ohne Probleme auch damit steuern.

Ich habe Dir den Code mal zusammengebastelt, wie ich glaube das Du Ihn wünschst.
(siehe beigefügte Datei)

Da ich Deine Kenntnisse in VBA nicht einschätzen kann, habe ich diverse Codezeilen kommentiert.
Die Kommentare kannst Du natürlich gerne löschen.

Wichtig fand ich, eine Abfrage einzubauen, ob ein Blatt entsprechend des Zellwertes der ausgewählten Zelle überhaupt existiert.
Denn in Deiner Beispieldatei ist Zelle AO64 zwar noch im Bereich, aber diese Zelle hat keinen Wert. Dadurch würde dann ein Fehler entstehen.

Ich habe festgestellt, das die Blattnamen A und B so übernommen werden, ab Buchstabe C der Blattname aber als 'C' genommen wird.
Und dann kann es natürlich nicht funktionieren.
Warum Excel dies so macht?
Keine Ahnung.

Aber über VBA und ohne Hyperlink spielt dies auch keine Rolle.


Ich hoffe geholfen zu haben.

 

Hi,

nein, du hast nicht "geholfen", du hast dich auf immer und ewig in meine Favoritenliste hineingepostet :-D

Eine winzig kleine Bitte hätte ich noch, das ist mir erst jetzt aufgefallen: kann man diesen Code eventuell noch um eine Prüfung erweitern, nämlich dass der Absprung nur dann gehen soll, wenn in der selben Zeile in AP der Wert -1 steht, ansonsten kein Absprung?

Vielen vielen Dank und liebe Grüße,
Sonny

 

Hallo Sonny,

ist eingebaut.

 

Super, funkt perfekt!!

Danke!

Lg Sonny

 

Hi Achim,

ich weiß, dass ich schön langsam lästig werde, aber ich hab grad noch einen kleinen Bug in deinem Script gefunden: immer, wenn ich irgendeine Zelle in der Spalte A anklicke, wirft er diese Codezeile

Code:

If Not Intersect(Target, Range(strBereich)) Is Nothing And _
.Cells(ActiveCell.Row, ActiveCell.Column - 1).Value = "-1" Then

als Fehler aus - hängt (vermute ich) wohl daran, dass es kein -1 bei Spalte A geben kann - ich habe jetzt statt dem Column-1 einfach die Spaltennummer reingeschrieben, müsste so passen, oder? (Zumindest hat er bis jetzt keinen Fehler ausgeworfen :-D )

lg Sonny

 

Hallo Sonny,

natürlich kannst Du auch die Spaltennummer benutzen.
Und natürlich bewirkt o.g. Codezeile einen Fehler, exakt deshalb wie Du es erklärt hast.
Nur...
in meinem Code steht "+1" und nicht "-1", weil die Spalte "AP" hinter "AO" kommt. Ich habe gerade noch einmal nachgeschaut.
Möglicherweise hast Du ja einen Fehler beim Kopieren des Codes gemacht?