Code umschreiben für Modul, ohne "ByVal...
08.05.2017 07:51:16
Peter
Wie muss ich diesen Code umschreiben, damit ich diesen in einem Modul und nicht in der Tabelle und ohne "ByVal Target As Range" haben kann?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
'Hyperlinks 1, Technische Zeichnungen erstellen
Const strHL_1 As String = "http://condorportal.Firma.com/condorwp/showDetails.action?path= _
details/"
If Target.Column = 15 Then
If Target.Count = 1 Then
If Target "" Then
ActiveSheet.Hyperlinks.Add Target, strHL_1 & Target
End If
End If
End If
Application.ScreenUpdating = True
End Sub
DankeViele Grüsse,
Peter