Office: (Office Version unbekannt) Hyperlink an Zellinhalt/Zellwert knüpfen (anstatt an eine bestimmte Zelle)

Hi Mario,

das kann ich nicht nachvollziehen. Da müsstest du schon mal deine Mappe hochladen.

---

 

Hallo Karin
anbei mal das Gebastel "kopie von Lagerverwaltungliste.xlsx" auf Tab Artikeldatenbank Zelle C4 bis Zelle C6
Dort habe ich das Beispiel mit dem Hyperlink =HYPERLINK("#"&ZELLE("Adresse"...

die Datei RE-Kinder, Sponsoren... kennst du ja eigentlich schon. Anbei die Einkürzung der Tabellen mit Laufzeitehler 1004.


Gruss

Mario

 

Hallo Karin
Die Lagerverwaltungsliste ist ist wie ich sie im Internet gefunden hatte viel zu unübersichtlich. Es hat darin zu viele einzelne Tabs wo Datenfragmente zum gleichen Artikel eingepflegt werden müssen. Dies macht eine Artikelverwaltung zum Alptraum.

Ich habe damit lediglich etwas rum gespielt und die Option Hyperlink daran ausprobiert. Hierdurch bin ich auch auf diesen Thred gestossen wo dies von dir angesprochen wurde aber ein Benutzer seine Probleme hatte dies umzusetzen. Dies lag wohl am "#"&

Das VBA in Kinder Sponsoren hatte ich mir angeschaut weil ich hoffte damit was anfangen zu können um in der Lagerverwaltung in den Richtigen Tab zu gelangen des erfassten Artikels.
Beispiel: Artikel A00001 ist eine Schraube würde ich gerne über die Kategorie "Schrübli" auf dem Tab Schrauben bei Artilel A00001 landen um die Eigenschaften dieses Artikels zu bearbeiten oder anzuzeigen. Wenn die Kategorie Kabel ist (Artikel-Nr. A00002) würde ich gerne im Tab Kabel bei A00002 landen um die Eigenschaften dieses Artikels zu bearbeiten oder anzuzeigen.

Da diese Lagerverwaltung wie schon gesagt nicht optimal aufgebaut ist überlege ich mir wie ich mir diese besser aufbauen könnte.

 

Hi Mario,

mit dieser Zeile

Code:

Set rngZelle = Worksheets("Informations about the children").ListObjects("Tabelle5").DataBodyRange.Columns(1).Find(Cells(Target.Row, 12), lookat:=xlWhole)

sucht der Code mit .Columns(1) in Spalte 1 der intelligenten Tabelle. Wenn er aber weitersuchen soll, und zwar in dieser Zeile:

Code:

Set rngZelle = Worksheets("Informations about the children").ListObjects("Tabelle5").DataBodyRange.Columns(2).FindNext(rngZelle)

referenzierst du mit .Columns(2) auf Spalte 2 der intelligenten Tabelle - das ist natürlich falsch: der Code muss selbstverständlich auch in dieser Zeile auf Spalte 1 referenzieren.

Ich nehme an, du bist davon ausgegangen, dass in Spalte B (2) des Tabellenblattes gesucht werden soll, da die Namen der Kinder in Spalte B stehen - das ist bei diesem Code aber falsch, denn er bezieht sich nicht auf die Spalten des Tabellenblattes sondern auf die Spalten der intelligenten Tabelle, was durch den Zusatz .ListObjects("Tabelle5").DataBodyRange festgelegt ist - und dort ist es Spalte 1. Und da der Code bei der ersten Suche in der Spalte 1 der intelligenten Tabelle sucht, darf/kann er bei der weiteren Suche natürlich nicht in Spalte 2 suchen - deshalb dieser Fehler. Mit anderen Worten: auch an dieser Stelle im Code muss 1 stehen und nicht 2.

---

 

Hallo Karin
Ich danke dir, du hast Augen wie ein Falke )). Anscheinend hat es mir vom Original zu meiner ein gekürzten Variante etwas im VBA zerschossen. Lag wohl daran, dass der Tabellenbereich Tabelle 5 mal weg war und ich ihn neu angelegt hatte. Hierdurch änderte sich wohl auch der VBA Code von 1 auf 2 was den Fehler verursachte.

 

Excel kann vieles, aber es ändert nicht von sich aus willkürlich etwas an einem Code und macht aus einer 1 eine 2 - das musst du definitiv dir selbst anlasten und kannst es nicht einfach Excel in die Schuhe schieben...

---

 

Hallo Karin
VBA ist für mich ein Tor mit mindestens 7 Siegel. Heute könnte es eins weniger werden.
Wen ich das richtig interpretiere ist der Code in VBA "harter Code" und nix dynamisch(?)
Wenn das richtig ist bezieht sich das auf alle VBA Codes oder nur gerade auf diesen?

Gruss

Mario

 

Hi Mario,

was verstehst du unter "nix dynamisch"? Gewiss ist Code - wenn er einmal geschrieben ist - nicht mehr dynamisch, d.h. man kann Code zur Laufzeit nicht ändern und es müssen für bestimmte Wirkungen festgelegte Befehle verwendet werden. Code, der auf Eingaben im Tabellenblatt reagiert, reagiert eben nur auf Eingaben und nicht auf etwas anderes. Code, der für ein definiertes Steuerelement geschrieben ist, ist dann auch nur an dieses Steuerelement gebunden. Dennoch kann man Code so schreiben, dass er (obwohl er an bestimmte Elemente fix gebunden ist) auch dynamisch wirkt - bestes Beispiel in deiner Mappe: da sich die Suche auf die 1. Spalte der intelligenten Tabelle bezieht, spielt es keine Rolle, in welchem Zellbereich des Tabellenblattes sich diese Tabelle befindet - somit ist er zwar statisch an die intelligente Tabelle gebunden aber dynamisch in Bezug auf die Position im Tabellenblatt. Es kommt also immer auf den Standpunkt und auf die Sichtweise an, ob Code als statisch oder als dynamisch betrachtet werden muss.

---