---

Hallo zusammen,

ich möchte einen Tabellenbereich automatisch markieren und einen Rahmen zuweisen.

Die leetzte befüllte Zelle suche ich mit:

Code:

---

letztezelle = Worksheets(sNameNewWorksheet).Range("A1").SpecialCells(xlCellTypeLastCell).Address
MsgBox letztezelle

---

In der MsgBox aber kommt z.B.$K$12
Nun wollte ich diesen Wert in der nächsten Spalte einbauen. Leider ohne Erfolg.

Code:

---

Worksheets(sNameNewWorksheet).Range(Cells(A, 8), Cells(letztezelle)).Select

---

Hat jemand Rat?

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schaue dir mal an welche Schreibweise das Range-Objekt erfordert 

Code:

---

Sub test()
sNameNewWorksheet = ActiveSheet.Name
letztezelle = Worksheets(sNameNewWorksheet).Range("A1").SpecialCells(xlCellTypeLastCell).Address

MsgBox letztezelle

'Worksheets(sNameNewWorksheet).Range("A8:" & letztezelle).Select

'Die xlEdge-Konstanten haben folgende Werte:
'5 - xlDiagonalDown
'6 - xlDiagonalUp
'7 - xlEdgeLeft
'8 - xlEdgeTop
'9 - xlEdgeBottom
'10 - xlEdgeRight
'11 - xlInsideVertical
'12 - xlInsideHorizontal

'von daher eine For-Next-Schleife ;) - eventuell geht das auch eleganter

Dim Index As Integer

For Index = xlEdgeLeft To xlEdgeRight
    With Worksheets(sNameNewWorksheet).Range("A8:" & letztezelle).Borders(Index)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next Index

End Sub

---

wobei man auf die Select Anweisung meistverzichten kann;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP