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
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
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
So sollte es auch klappen:
Range(Selection, Selection.Offset(5, 0).End(xlToRight)).Select
Gruss Remo
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen