Clever-Excel-Forum

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

Hallo Wolfgang,

vllt hilfreich vllt auch nicht

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

Sven

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

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

Hallo Stefan

Das ist es was ich brauche, Super.

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

Gruß Wolfgang

Wolfgang_Virnich

Coprat

Wolfgang_Virnich

Steffl

Wolfgang_Virnich