Zeilen markieren

Bild

Betrifft: Zeilen markieren von: Klaus
Geschrieben am: 11.02.2005 08:22:36

Guten Morgen Spezialisten

Ich möchte 7 Zeilen unterhalb der selektierten Zelle markieren. Also z.B der Curser steht in B3, dann möchte ich die Zeilen 4-10 markiert haben.

Dank schon einmal für Eure Mühe

Gruss Klaus

Bild


Betrifft: AW: Zeilen markieren von: Jan
Geschrieben am: 11.02.2005 08:47:19

Hi Klaus,


Eine mögliche Variante ausgehend von der jeweiligen aktiven Zelle.


Sub markieren()
z = ActiveCell.Row
sp = ActiveCell.Column
ActiveSheet.Range(Cells(z + 1, sp), Cells(z + 8, sp)).Select
End Sub


Jan


Bild


Betrifft: AW: Zeilen markieren von: Klaus
Geschrieben am: 11.02.2005 08:55:58

Hallo Jan
Dank schon einmal für die schnelle Antwort
aber....

Jetzt werden nur die zellen markiert, ich möchte die 7 ZEILEN markiert haben.

Gruss Klaus


Bild


Betrifft: AW: Zeilen markieren von: Jan
Geschrieben am: 11.02.2005 09:09:05

Hi Klaus,

Spaltenindex auf 256 und schon klappt es:



Sub markieren()
z = ActiveCell.Row
sp = ActiveCell.Column
ActiveSheet.Range(Cells(z + 1, sp), Cells(z + 8, 256)).Select
End Sub



Jan


Bild


Betrifft: AW: Zeilen markieren von: Klaus
Geschrieben am: 11.02.2005 09:15:29

Hi Jan

Danke nochmals für die Antwort.
Klappt prima

Gruss Klaus


Bild


Betrifft: AW: Zeilen markieren von: werner rom
Geschrieben am: 11.02.2005 09:20:00

Stop
Range("b3").Select
x1 = ActiveCell.Offset(1).Address
x2 = ActiveCell.Offset(7).Address
Range(x1, x2).Activate


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen markieren"