AW: kopieren mit Makro unterverwendung eines Hyper
25.11.2006 21:26:30
fcs
Hallo Wolfgang,
ganz optimal ist meine Lösung nicht, aber meines Wissens gibt es kein Ereignis, dass an das Anklicken eines Hyperlinks geknüpft ist. Die Lösung reagiert auf die Selektion einer Zelle in der Spalte mit den Hyperlinks. Ist ein Hyperlink vorhanden, dann wird nach einer Sicherheitsabfrage die Zelle links von der selektierten Zelle in die Zieladresse kopiert und dabei die vorhanden Zellen nach rechts verschoben.
Die Sicherheitsabfrage habe ich insbesondere deshalb eingebaut, weil das Makro auch auf die Selektion der Zellen mit den Cursortasten reagiert ohne das dabei der Hyperlink ausgelöst wird.
Das Makro fügst du im VBA-Editor unter der Tabelle2 ein.
Gruss
Franz
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Linke Nachbarzelle nach Adresse des Hyperlinks Kopieren und Zellen nach rechts verschieben
If Not Intersect(Target, Me.Range("E:E")) Is Nothing And Target.Cells.Count = 1 Then
If Target.Hyperlinks.Count > 0 Then
If MsgBox("History kopieren?", vbYesNo + vbDefaultButton2) = vbYes Then
Zieltabelle = Mid(Target.Hyperlinks(1).SubAddress, 1, InStr(1, Target.Hyperlinks(1).SubAddress, "!") - 1)
ZielZelle = Mid(Target.Hyperlinks(1).SubAddress, InStr(1, Target.Hyperlinks(1).SubAddress, "!") + 1)
Target.Offset(0, -1).Copy
Worksheets(Zieltabelle).Range(ZielZelle).Insert Shift:=xlToRight
Application.CutCopyMode = False
End If
End If
End If
End Sub