Nach Eintrag Letze Zeile 4 Zelln einzeln Rahmen

[kraehenseele]

Hallo zusammen,
ist mir schon fast peinlich euch mit so nem Pillepalle zu belästigen aber ich krieg es nicht gewuppt.
Ich möchte nach einer Eingabe in Spalte A die letzte Zelie ermitteln und den Wert dann ebenfalls für B, C, D verwenden, alle 4 Zellen sollen einen dicken Rahmen erhalten.
Ich hab mit dem Macrorekorder aufgezeichnet und den Code dann in ein Change Ereignis gepackt undwollte den Code dann entsprechend anpassen, scheinbar bin ich nicht dazu in der Lage.
Alle Lösungsansätze aus dem Netz oder meinem tumben Schädel, hab ich immer einen Fehler.
Das Maximum das ich erreicht hab ist mit Union(Range einen Rahmen um alle 4 Zellen, aber nicht jede einzeln. :39:

Aber wenn ich euch schon behelligen hätte ich noch 2 Fragen zum aufgezeichneten Code
- zum einen "Range("D" & lz).Activate" (im aufegzeichneten war es D2) wozu das aktivate, ohne funktioniert auch Union(Range nur auf Spalte A
- brauch ich wirklich 4 with Schleifen für einen Rahmen

Soo jetzt geh ich mich schämen, schönen Sonntag euch

Gruß Micha

[schauan]

Hallöchen,

ich bleib mal bei einer Version mit aufgezeichnetem Code für die Rahmen.

Code:

Option Explicit

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A6:D6").Select
    Range("D6").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Wenn Du dickere Linien willst, dann z.B. mit xlMedium statt xlThin.

Statt dem festen Zellbezug

Range("A6:D6").Select
Range("D6").Activate

nimmst Du

Cells(Rows.Count,1).End(xlup).Resize(,4).Select


und wenn Du den Inhalt von Ax in Bx, Cx und Dx haben willst dann

Selection.Value=Selection.Range("A1").Value