AW: Erste sichtbare Zelle auswählen mit VBA
Panicman
Hallo K.Rola,
Habe es schon ausprobiert mit einem Makro von Hans. Das Problem ist, das es bei einer Fixierung nicht klappt.
Text-Index: 232204
Subject: Excel/VBA-Beispiel: Den sichtbaren Bereich ermitteln
Problem: Der im Blatt sichtbare Zell-Bereich wird ermittelt.
Lösung: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
Sub Erste_Zelle()
'sekektiert die erste sichtbare Zelle in jeder Mappe der Datei
For I = Worksheets.Count To 1 Step -1
Worksheets(I).Select
Range("A1").Select
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
Range(Cells(iRow, iCol), Cells(iStartR, iStartC)).Address
Range(x).Cells(1, 1).Select
Next I
Worksheets(1).Select
End Sub
Hast du noch eine Lösung
Gruß
Holger