Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Spalte

Forumthread: Letzte Spalte

Letzte Spalte
24.06.2003 15:30:02
Gerhard
Hi

Wie kann ich einen Bereich via VBA markieren von der aktiven Zelle anschließend 5 Zeilen nach unten bis zur letzten Spalte?

Vielen Dank
Gerhard

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Letzte Spalte
24.06.2003 15:43:52
harry

Hallo Gerhard,

versuchs mal damit:


dim zeile as integer
dim spalte as integer
dim x as integer

x=columns.count
zeile=activecell.row
spalte=activecell.column

range(cells(spalte,zeile),cells(x,zeile+5)).activate

gruß

Harry

Re: Letzte Spalte
24.06.2003 15:47:19
Remo

Hallo zusammen

So sollte es auch klappen:

Range(Selection, Selection.Offset(5, 0).End(xlToRight)).Select

Gruss Remo

Anzeige
Re: Letzte Spalte
24.06.2003 15:50:46
harry

Verbesserung, Sorry

Sub test()
Dim zeile As Integer
Dim spalte As Integer
Dim x As Integer

x = Columns.Count
zeile = ActiveCell.Row
spalte = ActiveCell.Column

Range(Cells(zeile, spalte), Cells(zeile + 5, x)).Select

End Sub

Gruß Harry

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige