In letzte Zelle springen, Bereich makieren

[Wolfgang_Virnich]

Hallo

Ich möchte mit dem Makro das die Spalte von der ersten (wo der Curser steht) bis zu letzten gefüllten Zelle makiert wird.

In dem folgenden Makro springt der Curser in die letzte gefüllte Zelle, weiter komme ich nicht damit.

Code:

Sub SpringInLetzteZelle()
If IsEmpty(Cells(65536, ActiveCell.Column)) Then
  Cells(1048576, ActiveCell.Column).End(xlUp).Select
Else
  Cells(1048576, ActiveCell.Column).Select
End If
End Sub

Gruß Wolfgang Virnich

[Coprat]

Hallo Wolfgang,

vllt hilfreich vllt auch nicht


ich drücke dann immer Strg+Shift+Pfeil nach unten
MFG

Sven

[Wolfgang_Virnich]

Hallo Sven

Ich danke dir,
aber bei 125.000 Zellen mit diversen Leerzellen ist das schon mühsam.

Mit VBA wirds schon gehen, aber wie?

Gruß Wolfgang Virnich

[Steffl]

Hallo Wolfgang,

es ist meistens unnötig einen Bereich zu selektieren aber versuche es mal so

Code:

Sub SpringInLetzteZelle()
Dim lngC As Long
lngC = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, Rows.Count)

Cells(ActiveCell.Row, ActiveCell.Column).Resize(lngC - ActiveCell.Row + 1, 1).Select
' If IsEmpty(Cells(65536, ActiveCell.Column)) Then
'   Cells(1048576, ActiveCell.Column).End(xlUp).Select
' Else
'   Cells(1048576, ActiveCell.Column).Select
' End If
End Sub

[Wolfgang_Virnich]

Hallo Stefan

Das ist es was ich brauche, Super.

Vielen herzlichen Dank für deine Mühe und Hilfe.

Gruß Wolfgang