hyperlink auslesen

Question

Hallo profis.. :-)
habe ein Makro, womit ich die Hyperlink Adresse auslesen kann.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim lrZelle As Range

For Each lrZelle In Selection
If lrZelle.Hyperlinks.Count > 0 Then
If lrZelle.Hyperlinks(1).Address <> "" Then
text = lrZelle.Value
zelle = lrZelle.Hyperlinks(1).Address
Else
text = lrZelle.Value
zelle = lrZelle.Hyperlinks(1).SubAddress
End If
End If
Next
End sub

Das einzige Problem ist. Ich möchte nur die Zeile ausgegeben bekommen.
Aber ich bekomme dann "'Tabelle10'!C10:C15". hierbei würde mir reichen, wenn ich wüsste, dass die Adresse sich auf die spalte C bezieht..

Danke für eure hilfe.

Answer 1

Hallo,

benutze doch Mid und Instr (suche nach !)
Damit bekommst Du doch den Adressbereich.

Gruß Hajo

Answer 2

Halo,

die Befehlszeile

zeile = lrZelle.Row

schreibt Dir die Zeilennummer in der Variablen "zeile"

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]