Erste sichtbare Zelle auswählen mit VBA

Panicman · 2004-07-01T13:39:31+00:00

Guten Tag zusammen !! Ich suche ein Makro, mit der man die "erste sichtbare Zelle" und bei einer Fixierung die "erste sichtbare Zelle" unterhalb der Fixierung selektiert. Per Tasten-Kombi geht das mit STRG-POS1. Per Makro bekomme ich das nicht hin. Danke im vorraus Gruß Holger

Hallo Isabella,
ja, ich habe Sendkeys "^{POS1}" schon ausprobiert. Bin zu blöd dafür oder es klappt nicht.
Nochmals zu Verdeutlichung. Ich bekomme XL-Dateien mit mehr als 70 Blättern. In jedem Blatt ist die selektierte Zelle irgendwo. ich möchte mit einem Makro in jedem Blatte die Selektion auf die erste sichtbare Zelle stellen. Wenn z.B. die Spalten A+B ausgeblendet sind, ist die erste sichtbare Zelle C1. In anderen Blättern ist über das Menü Fenster eine Fixierung auf die Zelle C7 gemacht. Ich möchte dann die erste sichtbare Zelle unterhalb dieser Fixierung selektieren.
Die Krönung ist, wenn Spalte A+C ausgeblendet ist, die Fixierung aber auf C7 gemacht worden ist, dann ist die erste sichtbare Zelle unterhalb der Fixierung D7.
Das ganze klappt mit STRG-POS1, aber nicht als Makro.
Ich hoffe jetzt ist es verständlicher.
Gruß
Holger

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

Erste sichtbare Zelle auswählen mit VBA

Forumthread: Erste sichtbare Zelle auswählen mit VBA

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial