Thema: Zellen nach rechts Markieren | Herbers Excel-Forum

Hallo Excel Freunde,
Frohe Weinachten erst einmal.
Suche ein Code der mir von der Activen Zelle nach rechts hin alle ausgefüllten Zellen markiert.
Hat jemand dazu eine Idee?
Ich dachte so oder ähnlich
zeile = AktiveCells(Columns.Count).End(xlToRight).Column ' letzten Wert in Zeile finden
Range(AktiveCell), Cells(zeile)).Select
Nur leider funktioniert es so nicht.
MfG
Stephan

Hallo Stephan
versuch es so:
Option Explicit

Public Sub NachRechtsMarkieren()
With ActiveSheet
.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(ActiveCell.Row, _
.Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column)).Select
End With
End Sub

Gruß Peter

Hi,
ich weis nicht, ob dies deinen Bedingungen voll gerecht wird.

Sub b()
With ActiveCell
If Cells(.Row, Columns.Count).End(xlToLeft).Column > .Column Then Range(.Cells, Cells(.Row,  _
Columns.Count).End(xlToLeft)).Select
End With
End Sub

Gruß Gerd

Absolut richtig so sollte es sein Danke.
MfG
Stephan