Kommentare Automatisch einfügen

[Case]

Hallo, :19:

zum Thema Rahmen: Das könnte man per Programmierung z. B. während die Zelle "gezogen" wird abbilden. Oder per "Bedingter Formatierung". Da kann man wohl die Liniendicke des Rahmens nicht beeinflussen, aber den Typ und die Farbe. :21:

Zum Thema Kommentare: Ich beziehe mich in meinem Code auf Spalte A - steht dort z. B. nur bis A10 etwas, dann werden Kommentare ab einschließlich A11 nicht mehr gesetzt. Es braucht also eine Spalte die bis zum letzten Kommentar gefüllt ist. Sonst muss man jedesmal den gesamten Bereich abtasten - das ist Rechenintensiv und in meinen Augen unnötig. :21:

[Daniel L.]

Hallo,

vielen Dank für die Antwort.
Leider benötige ich dies für den Bereich "Datum" wie im Namensmanager angegeben.
Ist dies möglich?
   

Vielen Dank schon im Voraus für euere Antworten.

Gruß
Daniel

[Case]

Hallo, :19:

dann nimmst du statt dieser Codezeile...

Code:

For Each rngRangeZ In .Range(.Cells(7, 2), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(6, Tabelle1.Columns.Count).End(xlToLeft).Column))

... folgende: :21:

Code:

For Each rngRangeZ In .Range("Datum")