Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Der Cursor soll eine Zeile nach unten

Der Cursor soll eine Zeile nach unten
20.01.2004 19:08:53
Vera
Hallo liebe Excelerinnen, hallo liebe Exceler,
ich denke, ich sitze gerade auf meiner Gehirnzelle.
In einer Tabelle gibt es in Zeile 1 eine Überschrift,
dann kommen ein paar ausgeblendete Zeilen, dann die Eingeblendeten.
Ich setze die active Zelle mit
Range("D1").Select
jetzt möchte ich mit dem Cursor in die erste eingeblendete Zeile,
so als ob ich im Sheet manuell einmal Pfeil nach unten drücken würde.
Ich komme nicht darauf wie der entsprechende VBA-Befehl lautet. Mit
ActiveCell.Offset(1, 0).Range("A1").Select
komme ich in eine ausgeblendete Zelle, mit
Selection.End(xlDown).Select
in die letzte Eingeblendete.
Ich möchte aber in die erste Eingeblendete ..
???
Liebe Grüße
Vera

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Der Cursor soll eine Zeile nach unten
20.01.2004 19:31:23
Ramses
Hallo
ich hoffe du hast mehr als eine Zelle ;-))
Hier zwei Varianten die dein Anliegen abdecken. In der zweiten Variante ist es nötig dass zumindest in Zelle 2 was steht.
Option Explicit

Sub Select_Next_Visible_Cell_Easy()
'Simpelste Variante
Range("A1").Select
SendKeys "{Down}"
End Sub


Sub Select_Next_Visible_Cell_Max()
Dim i As Integer
For i = 2 To Cells(65536, 1).End(xlUp).Row
If Rows(i).Hidden = False Then
Cells(i, 1).Select
Exit Sub
End If
Next i
End Sub


Gruss Rainer
Anzeige

65 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige