Markierte Zeile in Blattmitte verschieben
23.03.2008 16:20:54
reiner
in einer Tabelle werden nach einem Auswahlkriterium Zeilen markiert welche durchaus auch außerhalb des gerade sichtbaren Bereichs liegen können. Mit nachfolgendem Programmcode ist sichergestellt, dass diese einzeln und zeilenweise markiert und immer innerhalb des sichtbaren Bereichs angezeigt werden.
If ActiveCell.Font.ColorIndex = 3 Then
Application.ScreenUpdating = True
Application.Goto Range("A" & vSchleife), True
ActiveCell.EntireRow.Select
ActiveCell(1, 21).Value = "1"
End If
Die markierte Zeile ist stets die oberste Zeile im sichtbaren Bereich.
Hat jemand einen Tipp wie die jeweils markierte Zeile um z.B. 15 Zeilen (nach unten geschoben) etwa in de rMitte des angezeigten Bereichs platziert werden kann?
mfg
reiner