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
|