Hyperlinks per Makro zuweisen
11.06.2007 17:37:00
Sonnenpeter
ich versuche mich gerade Hyperlinks per Makro zuzuweisen.
Der Makrorecorder gibt mir folgendes vor:
Sub Makro11()
Range("B12").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'Mitarbeiter 1'!B12", TextToDisplay:="Mitarbeiter 1"
End Sub
Ein versuch von mir:
Adresse = "B" & Zeile 'variable von Zeile 12 bis Ende der Datenliste
Set wks2 = Sheets("Daten")
With wks2
.Hyperlinks.Add.Range (Adresse), Anchor:=Selection, Address:="", SubAddress:= _
"'Mitarbeiter 1'!B12", TextToDisplay:="Mitarbeiter 1"
End With
Ach ja, wie immer wenn ich was neues machen will :-( Versuch Irrtum, Versuch Irrtum.......
Gruß Sonnenpeter