Thema Datum  Von Nutzer Rating
Antwort
Rot Link zu gesuchter Zelle
15.11.2021 16:01:12 Bobby
NotSolved

Ansicht des Beitrags:
Von:
Bobby
Datum:
15.11.2021 16:01:12
Views:
77
Rating: Antwort:
  Ja
Thema:
Link zu gesuchter Zelle

Hallo zusammen,

wiedereinmal habe ich ein Problem:

Der Sachverhalt:

Aus mehreren Tabellenblätter werden Zeilen mit bestimmten Bedingungen in ein separates Tabellenblatt eingefügt und gesammelt. Jetzt möchte ich mit einer Formel, den Zeilen im separaten Tabellenblatt ein Link in eine Zelle packen, mit dem man auf die urpsüngliche kopierte Zeile springt. Folgend mein bisher kläglicher Ansatz:

Sub LinksErstellen()
    
    For Each Zelle In OffeneSdg.Range("N2:N" & letzteN)
        If Zelle <> "" Then
    
    
    For Each ws In Sheets
        If ws.Tab.Color = 5287936 Or ws.Tab.Color = RGB(255, 255, 0) Or ws.Tab.Color = RGB(0, 176, 240) Then   
    GoTo NextBlatt
    Else

        Set rngFind = ws.Cells.Find(Zelle.Value)
        'Set LinkZelle = rngFind.Address
        'MsgBox rngFind.Address
        OffeneSdg.Hyperlinks.Add Anchor:=Zelle, Address:=rngFind.Address
      
        
        End If
NextBlatt:
Next ws
    End If
    Next Zelle
    
End Sub

 

Ich hoffe ich habe mich vernständlich genug ausgedrückt und es kann mir hier jemand weiterhelfen.

LG Bobby

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Link zu gesuchter Zelle
15.11.2021 16:01:12 Bobby
NotSolved