Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen nach rechts Markieren | Herbers Excel-Forum


Betrifft: Zellen nach rechts Markieren von: Einzel
Geschrieben am: 25.12.2009 22:00:33

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

  

Betrifft: AW: Zellen nach rechts Markieren von: Peter Feustel
Geschrieben am: 25.12.2009 22:16:23

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


  

Betrifft: AW: Zellen nach rechts Markieren von: Gerd L
Geschrieben am: 25.12.2009 22:26:44

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


  

Betrifft: AW: Zellen nach rechts Markieren von: Einzel
Geschrieben am: 25.12.2009 22:34:30

Absolut richtig so sollte es sein Danke.
MfG
Stephan


Beiträge aus den Excel-Beispielen zum Thema "Zellen nach rechts Markieren"