Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

In die letzte beschriebene Zelle einer Zeile springen

907 views
Skip to first unread message

Frank Kötting

unread,
Nov 6, 2007, 2:57:11 PM11/6/07
to
Hallo Excel-Freunde,

ich habe folgendes Problem.
Nach dem durchlaufen eines Makros möchte ich das in der Zeile 3 die Zelle
neben dem letzten Eintrag aktiv wird. Es können also auch Spalten vorkommen
die Leer sind. Aber die letzte Zelle mit einem Wert bzw. die daneben soll
dann aktiv werden.

Aber wie ?

Vielen Dank im voraus.

Frank Kötting


Claus Busch

unread,
Nov 6, 2007, 3:06:59 PM11/6/07
to
Hallo Frank,

Am Tue, 6 Nov 2007 20:57:11 +0100 schrieb Frank Kötting:

> Nach dem durchlaufen eines Makros möchte ich das in der Zeile 3 die Zelle
> neben dem letzten Eintrag aktiv wird. Es können also auch Spalten vorkommen
> die Leer sind. Aber die letzte Zelle mit einem Wert bzw. die daneben soll
> dann aktiv werden.

deine Aussage im Betreff und im Text differieren. Willst du nun in die
letzte beschriebene Zelle oder daneben?
Daneben:
Application.Goto ActiveSheet.Cells(3, 256). _
End(xlToLeft).Offset(0, 1)

Falls letzte beschriebene Zelle nimm das Offset weg.


Mit freundlichen Grüssen
Claus Busch
--
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Melanie Breden

unread,
Nov 6, 2007, 3:12:40 PM11/6/07
to
Hallo Frank,

"Frank Kötting" <Frank.K...@web.de> schrieb:


> Nach dem durchlaufen eines Makros möchte ich das in der Zeile 3 die Zelle neben dem letzten
> Eintrag aktiv wird. Es können also auch Spalten vorkommen die Leer sind. Aber die letzte Zelle mit
> einem Wert bzw. die daneben soll dann aktiv werden.
>
> Aber wie ?

z.B. so:

Public Sub ErsteLeereZelle()
With Worksheets("Tabelle1")
.Cells(3, .Cells(3, .Columns.Count).End(xlToLeft).Column + 1).Select
End With
End Sub

Wenn du aus einem anderen Tabellenblatt dorthin navigieren willst verwende
die Goto-Methode:

With Worksheets("Tabelle1")
Application.Goto .Cells(3, .Cells(3, .Columns.Count).End(xlToLeft).Column + 1)
End With


Mit freundlichen Grüssen
Melanie Breden

--
- Microsoft MVP für Excel -
www.melanie-breden.de

Frank Kötting

unread,
Nov 6, 2007, 4:56:58 PM11/6/07
to

"Frank Kötting" <Frank.K...@web.de> schrieb im Newsbeitrag
news:u5jM28KI...@TK2MSFTNGP06.phx.gbl...


Vielen Dank Melanie und Claus,

ihr habt mir beide sehr weiter geholfen.

Mfg
Frank Kötting


0 new messages