Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Frage zu ".End(xlUp).Row + 1), 1)"
Normale Version: Frage zu ".End(xlUp).Row + 1), 1)"
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Eizi100

29.05.2021, 07:34
Hallo Zusammen

Ich habe eine Frage zu .End(xlUp).Row + 1), 1) 
Ist es möglich, dass man auch mehrere nebeneinanderliegende Zellen anspricht? 
Ich trage unter der letzten beschriebenen Zeile eine Linie ein. Nur will ich diese von A bis J eintragen. Mit diesem Code kann ich aber nur eine Spalte ansprechen

mein gesamter Code

Code:
With Cells(WorksheetFunction.Max(6, Range("A50").End(xlUp).Row + 1), 1)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Vielleicht kann mir wer helfen

LG
Michael

RPP63

29.05.2021, 07:39
Moin!
Spalte J ist 10, also
With Cells(WorksheetFunction.Max(6, Range("A50").End(xlUp).Row + 1), 1).Resize(, 10)

Gruß Ralf

Eizi100

29.05.2021, 07:44
Ist das echt soooo einfach für dich?

Ich google seit 07:00 rum und komme bzw kam auf keinem grünen Zweig

Danke
LG
Michael

RPP63

29.05.2021, 08:11
Wink
Wenn Du erst mal 15 Jahre mit VBA arbeitest, wird sich Dein "Sprachschatz" ebenfalls erweitern.

Wobei ich momentan kaum noch etwas mit VBA mache, weil ich die vielen neuen Möglichkeiten in Excel 365 spannender finde.
VBA nur noch in Foren, um nicht einzurosten.
Clever-Excel-Forum > Office-Anwendungen > Excel > Frage zu ".End(xlUp).Row + 1), 1)"