Blattschutz führt zu Fehler
16.01.2005 15:47:56
Guido
Wenn ich folgende Formel laufen lasse, funktioniert sie beim ersten Durchgang nur ohne Blattschutz. Wenn ich die Zellen, die nicht aktiv werden sollen, mit "Blatt schützen" sperre, dann springt die Zelle nicht auf die nächst richtige.
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Wörterliste").Activate
Dim zeile As Long
Dim differenz As Long
zeile = ActiveCell.Row
differenz = zeile Mod 5
If Cells(zeile, 4) = Cells(zeile, 6) Then
ScrollArea = Cells(zeile + 5 - differenz, 4).Address
Else
ScrollArea = ActiveCell.Offset(1, 0).Address
End If
If differenz = 2 Then ScrollArea = ActiveCell.Offset(2, 0).Address
End Sub
Wer kann mir helfen? Herzlichen Dank?
Guido