Thema: Den sichtbaren Bereich ermitteln

StandardModule: Modul1

Sub FensterBereich()
   Dim rng As Range
   Dim iRow As Integer, iCol As Integer, iStartR As Integer, iStartC As Integer
   Set rng = ActiveCell
   iStartC = ActiveWindow.ScrollColumn
   iCol = iStartC
   Do Until ActiveWindow.ScrollColumn <> iStartC
      ActiveCell.Offset(0, 1).Activate
   Loop
   iStartC = ActiveCell.Column - 1
   iStartR = ActiveWindow.ScrollRow
   iRow = iStartR
   Do Until ActiveWindow.ScrollRow <> iStartR
      ActiveCell.Offset(1, 0).Select
   Loop
   iStartR = ActiveCell.Row - 1
   rng.Select
   MsgBox "Sichtbarer Bereich: " & Range(Cells(iRow, iCol), Cells(iStartR, iStartC)).Address
End Sub

StandardModule: Modul2

Sub Makro1()

 Makro1 Makro
 Makro am 13.03.2004 von Hans W. Herber aufgezeichnet



    Range("P1").Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht