Makroverbesserung...
30.05.2006 10:15:06
Sebastian
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Cells.Count = 1 Then GoTo EineZelle
For Each Target In Selection
EineZelle:
On Error GoTo Fehler
If Target.Column = 1 Then
If Target.Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, 31), Address:= _
Modul1.Pfad & "\Bilder\Bild " & Target.Value & ".jpg", TextToDisplay:= _
"Bilder\Bild " & Target.Value & ".jpg"
Else
Cells(Target.Row, 31).ClearContents
End If
End If
Next Target
Fehler:
Application.EnableEvents = True
End Sub
Danke