ScrolArea ... Bildschirm scrollt nicht mehr
14.11.2005 10:24:59
Kersten
Ich habe mit nachfolgendem VBA-Code den Srollbereich in einer Tabelle variabel festgelegt. Das funktioniert soweit auch ganz gut.
Nur wenn ich jetzt den Filter benutze wird zwar der Scrollbereich richtig festgelegt (kann mich mit dem Curser im Bereich bewegen) aber ich kann den Bildschirm nicht mehr scrollen. Weder mit dem Mouserad noch mit der Srollleiste rechts. Sie springt einfach immer wieder an den Anfang. Ich sehe also immer nur die erste Bildschirmseite und komme nicht weiter runter.
Ohne Filter funktioniert alles bestens.
Woran kann das liegen. Muss ich noch im VBACode etwas einbauen?
Danke
Gruß Kersten
****************************************************************
If ActiveSheet.FilterMode Then
Set rng = Range(Cells(68, 1), _
Cells(Cells(Rows.Count, 5).End(xlUp).Row + 5, 13))
Sheets("Erfassen").ScrollArea = rng.Address
End If
If Not ActiveSheet.FilterMode Then
Set rng = Range(Cells(68, 1), _
Cells(Cells(Rows.Count, 13).End(xlUp).Row - 1, 13))
Sheets("Erfassen").ScrollArea = rng.Address
End If