Netz-Treff - VBA: Zellumrandung in Excel (2007) wiederherstellen

#409558

Mike_R

Rosenheim,
10.03.2017, 22:00:52

VBA: Zellumrandung in Excel (2007) wiederherstellen (pc.sw.office)

Hi,
ein kleines VBA-Problem:
Diverse fablich hinterlegte Zellen in Excel sollen per Makro wieder weiß, bzw. farblos gemacht werden.
Hier ein vereinfachtes Beispiel an einer Zelle:
If .Cells(2 3).Interior.Color <> RGB(255, 255, 255) Then
.Cells(2, 3).Interior.Color = RGB(255, 255, 255)

Das klappt auch soweit, aber damit wird auch
die normale Zellumrandung entfernt, so dass es wie 2 verbundene Zellen ausschaut.

Mit
.Cells(2, 3).Borders.LineStyle = xlDouble
kannn man ja eine doppelte Umrandung erzeugen; aber den Befehl zum (Wieder)Herstellen der normalen Standard-Zellumrandung habe ich nicht gefunden.

Der brachte jedenfalls auch nicht das gewünschte Resultat:
.Cells(2, 3).Borders.LineStyle = xlLineStyleNone

Weiß jemand Rat?

Mike_R

#409569

manes

Köln,
11.03.2017, 10:15:42

@ Mike_R

VBA: Zellumrandung in Excel (2007) wiederherstellen

antworten

Hallo

Versuch mal, die Formtavorlage der Zellen auf Normal zu setzen, ob das Deinem gewünschten Ergebnis entspricht.
Also etwa so: cells(2,3).style = "Normal"

FFPX
Manes

--
Also wenn ich ehrlich sein sollte, müsste ich lügen!

#409571 Mike_R Rosenheim, 11.03.2017, 11:36:00 @ manes	VBA: Zellumrandung in Excel (2007) wiederherstellen antworten
	Hallo manes, vielen Dank für den Tipp. Genau das war's, was ich nicht gefunden habe. Umrandung ist wieder da. Mike_R