Rahmen um variablen Bereich setzen per VBA

Question

Hallo,

durch ein Makro werden neue Zeilen eingefügt und in SpalteC jeweils mit Inhalten versehen. Die Anzahl der neu eingefügen Zeilen ist dabei variabel.

Ich möchte um den Gesamten Bereich, Spalte C, der neu eingefügten Zeilen automatisch einen Rahmen setzen lassen. Mein Gedanke war dabei den Bereich über die letzte Zeile zu ermitteln, leider ohne Erfolg. Hier mein Ansatz:

lzeile = Sheets("Prämissen").Cells(Rows.Count, 3).End(xlUp).Row

With Range("C6" & lzeile).Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

Beim Ausführen des Makros tut sich leider nichts.
Kann mir jemand sagen, wo mein Fehler liegt?

Vielen Dank im Voraus!

Mfg peyd

Answer 1

hi all ^^

ohne schleife

gruss nighty

Sub Filter()
Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="Montage"
Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Borders.LineStyle = xlContinuous
Range("A1").AutoFilter
End Sub

Answer 2

Hallo all,

super, alle drei Varainten funktionieren einwandfrei!
Vielen Dank, Ihr seid die besten ;)

Mfg peyd

Answer 3

hi all ^^

virtuelle Bewertung des Fragestellers

von 5 stenchen ,glatte 5

Fragesteller ist supernett
dadurch ist sehr hohe Anteilnahme der member garantiert

gruss nighty