Hallo, ich hääte ein kleines VBA Problemm und komme mit der Hilfe aus dem Netz nicht weiter:
'Mein Code erstellt ein neues Tabellenblatt.
'Anschließend wird es mit einer Variablen umbenannt. (TbName)
'Danach wird ein Shape auf der Übersichtsseite Kopiert
'und auf der Übersichtsseite eingefügt.
'Dieses neue Shape soll nun auf Sheet(TbName) verweisen
ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 2")).Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
x = ActiveSheet.Shapes.Count
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(x), Address:=””, SubAddress:=Sheets(TbName).Range("A1"), TextToDisplay:=Name
'So funktioniert das leider nicht, aber keinerlei Ahnung wieso.
'Ich hoffe es kann jemand helfen!
|