Blätter mit generierten Hyperlinks einblenden

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim strAdr As String Dim strSht As String strAdr = Target.SubAddress strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "") Sheets(strSht).Visible = xlSheetVisible Sheets(strSht).Activate End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Main() Dim lngTMP As Long '* hier ist die Startzeile 7 und die Spalte 3 angegeben. Diese musst du noch anpassen. For lngTMP = 7 To Cells(Rows.Count, 3).End(xlUp).Row Step 2 Cells(lngTMP, 4).Value = Split(Split(Cells(lngTMP, 3).Formula, "(""")(1), """ &")(0) & _ Format(Split(Cells(lngTMP, 3).Value, " ")(1), "00000") Next lngTMP End Sub

Sub Main() Dim lngTMP As Long, sTxt$ '* hier ist die Startzeile 7 und die Spalte 3 angegeben. Diese musst du noch anpassen. For lngTMP = 7 To Cells(Rows.Count, 3).End(xlUp).Row Step 2 Cells(lngTMP, 4).Value = Split(Split(Cells(lngTMP, 3).Formula, "(""")(1), """")(0) Next lngTMP End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim Ziel As String Dim Adr As String Ziel = Target.SubAddress Adr = Left(Ziel, InStr(Ziel, "!") - 1) With Sheets(Adr) .Visible = True .Activate End With End Sub

Hi Herbert,
klar, ich versuche es gerne nochmal genauer zu erklären. Das Makro "Zeile_markieren" kannst Du ignorieren. Das hatte ich mal auf Faulheit erstellt, weil ich anfangs vergessen hatte, die Formeln in der Mappe mit relativen Zellenbezügen zu machen. Dieses Makro löscht eine aktive Zeile in allen Tabellenblättern. Ich hatte VBA komplett leergeräumt um keine Aufschlüsse auf die ursprüngliche Datei zu ermöglichen. Datenschutz und so ;-)
Um nun auf das zurückzukommen, woran ich scheitere. In Spalte C steht ja die Formel =Hyperlink(). Diese erstellt einen flexibelen Hyperlink, welcher für jede Zeile (jeden Dienstleister) in Spalte A anzeigt, in welchem Schritt des Prozesses der Bearbeiter gerade etwas machen soll. Es gibt in der Originalmappe 7 Arbeitsschritte und der Bearbeiter kann so immer gleich in den aktuellen Arbeitsschritt springen und dort weiterarbeiten.
Da ich so jedoch immer sehr viele Arbeitsblätter offen habe, wollte ich erreichen, dass ich alle Schritte ausblende und diese erst eingeblendet werden, wenn ich Bearbeiter bei Dienstleister XY in Spalte C auf den jeweiligen Schritt klickt. Das Problem ist nur, dass ich kein Makro finde, welches in Spalte C den Hyperlink auslesen kann, da dieser ja mit der Formel =Hyperlink() generiert wurde.
So kam mir die Idee, in einer Hilfsspalte (Spalte D) einen tatsächlichen Hyperlink per Makro zu schreiben (auf Basis des mit =Hyperlink() generierten Link in Spalte C), welches das oben gepostete Makro verwenden kann, um ein ausgeblendetes Tabellenblatt zu öffnen. Ein Makro, welches das eingeblendete Tabellenblatt beim Verlassen wieder ausblendet, habe ich schon.
Ich hoffe, dass die Erklärung es etwas deutlicher macht. Leider kann ich nicht die Originaldatei hochladen.

Ich habe nochmal überlegt, wie ich eine einfacherere Frage stellen kann.
Hier kommts ;-):
Kann man nachfolgendes Makro

Sub WriteHyperlink()
Dim i As Integer
For i = 5 To 2501
Cells(i, 4).Select
Worksheets("Prozess").Hyperlinks.Add Anchor:=Selection, Address:="#'" & Cells(i, 3) & "'!A1" _
End Sub

So umbauen, dass die folgenden Attribute gelten?
- In die zu schreibende Zelle wird zwar der Hyperlink wie angegeben erstellt, als Text steht jedoch der Hyperlink ohne "#", Zellbezug und "!". Am Beispiel gesehen steht also in Spalte D wieder Schritt 1, jedoch als editierbarer Hyperlink.
- Das Makro ist dauerhaft aktiv. Heißt, der Trigger ist nicht das Auslösen per Knopfdruck sondern sowie ein Eintrag in Spalte C, Zeile X steht wird in Spalte D, Zeile X der entsprechende, editierbare Hyperlink kreiert.
- Die "Schleife" geht bis Zeile 2501 und generiert, wie gesagt, nur einen Eintrag, wenn in Spalte C der entsprechenden Zeile ein Eintrag steht.
Wenn der Code so verändert wird, dass diese drei Attribute zutreffen, wären alle meine Probleme gelöst.

Sub Main() Dim lngTMP As Long, sTxt$, sWks$, sRng$, iPos% On Error GoTo ende Application.EnableEvents = False For lngTMP = 5 To Cells(Rows.Count, 3).End(xlUp).Row sTxt = Split(Split(Cells(lngTMP, 3).Formula, "(""")(1), """")(0) iPos = InStr(1, sTxt, "!") sWks = Left(sTxt, iPos - 1) sRng = Mid(sTxt, iPos + 1, 100) Cells(lngTMP, 4).Value = Sheets(sWks).Range(sRng) Next lngTMP ende: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Blätter mit generierten Hyperlinks einblenden

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread