Makro läuft nicht richtig
19.06.2007 15:04:00
Matthias
mir fehlen die Kenntnisse um den Makro richtig zu erstellen. Er läuft nur halb..
Die aktivierte Zelle soll der Hyperlink sein und über das Promt möchte ich die Zielzelle anspringen.
Hilfe wäre sehr nett
Sub hyperlink()
Dim rng As Range
Set rng = Application.InputBox _
(prompt:="Quellbereich angeben:", Type:=8)
rng.Copy
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=rng
End Sub
Gruß
matthias