Zellumrandung erscheint nicht beim Filtern
10.08.2013 13:40:07
mikey
Ich habe hier ein makro das ich in das dazu passende Tabellenblatt eingetragen habe.
Das funktioniert soweit ganz gut. Es ist hat eine ähnlichkeit mit dem berühmten
fadenkreuz.
D.h wenn ich einfach Zeile für Zeile durchklicke erscheint immer auf der ausgewählten
Zelle ein Rahmen darum wie es sein sollte.
Mein Problem ist nur das ich ober den Zellen eine fixierte Ansicht habe und verschiedene Spalten mit Autofiltern besitze, wenn
ich jetzt mit diesen filtere und dann auf die gefilterte Zelle klicke erscheint der Rahmen nicht mehr habe schon einiges probiert, komme jedoch nicht darauf was es sein könnte, vielleicht kann mir hier jemand einen tipp geben.
anbei das Makro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sichtbar As Boolean
On Error GoTo Fehler
If Target.Row >= 18 And Target.Column >= 3 Then
With Shapes("FKZeile")
.Visible = True
.Left = Columns("A").Left
.Width = Columns("AP").Left - Columns("A").Left
.Top = Target.Top
.Height = Target.Height
End With
Else
Shapes("FKZeile").Visible = False
End If
Fehler:
With Err
Select Case .Number
Case 0
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub
danke lg