Code funktioniert nicht mehr
10.08.2018 12:22:21
Guesa
Habe gestern einen Code gefunden der mir eine Form anzeigt wenn in einem Bereich geklickt wird, hat auch wunderbar funktioniert. Heute öffne ich diese Datei und dieser Code funzt nicht mehr? Kann mir jemand sagen woran dies liegen könnte?
schon mal ein Danke für eine Lösung
Gruß, Guesa
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("K4:K33")) Is Nothing Then
With ActiveSheet.Shapes("kopieren1")
' einblenden
.Visible = True
.Top = .TopLeftCell.Top + .TopLeftCell.Height / 2 - .Height / 2
.Left = Target.Offset(0, 1).Left
End With
Else
If ActiveSheet.Shapes("kopieren1").Visible Then _
ActiveSheet.Shapes("kopieren1").Visible = False
End If
End Sub
Anzeige