Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Nach Eintrag Letze Zeile 4 Zelln einzeln Rahmen
#1
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


Angehängte Dateien
.xlsm   Kummerkasten.xlsm (Größe: 39,25 KB / Downloads: 4)
Antworten Top
#2
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste