bestimmten bereich per Makro umrahmen

22/12/2007 - 20:42 von Andreas Hartmann | Report spam
Hallo,
mal wieder eine Frage:
Welchen befehl brauche ich, um einen best. Bereich ( der mit if ..then range
. select festgelegt ist ) autom. farbig umrahmen zu können.
Mit
With Selection.Borders
.ColorIndex = 30
geht das in einer leeren Datei super, da wo ich es brauche kommt eine
Fehlermeldung wegen dem color Index. ( kann das an verbunden Zellen in dem
Bereich liegen ?)
Ausserdem würde ein Rahmen um den ganzen Bereich ausreichen, ich brauche
nicht um jede Zelle einen. !!
Dank im Voraus

Andreas
 

Lesen sie die antworten

#1 Dietmar Vollmeier
22/12/2007 - 21:05 | Warnen spam
Servus Andreas!

*Andreas Hartmann* schrieb am 22.12.2007 um 20:42 Uhr...
Welchen befehl brauche ich, um einen best. Bereich ( der mit if ..then
range . select festgelegt ist ) autom. farbig umrahmen zu können.

Mit With Selection.Borders .ColorIndex = 30 geht das in einer leeren
Datei super, da wo ich es brauche kommt eine Fehlermeldung wegen dem
color Index. ( kann das an verbunden Zellen in dem Bereich liegen ?)



Ich hab getestet mit (XL2003)

| Range("F12:H22").Select
| With Selection

Damit wird der Bereich um die verbundenen Zellen erweitert und dieser
Bereich dann umrandet.

| With Range("F12:H22")

Macht einen Rahmen um den gewünschten Bereich, wobei verbundene Zellen
ignoriert werden.

Ausserdem würde ein Rahmen um den ganzen Bereich ausreichen, ich
brauche nicht um jede Zelle einen. !!



Hier nun der gesamte Code, den Bereich mußt du selber anpassen

With Range("F12:H22")
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 30
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 30
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 30
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 30
End With
End With


HTH
VYI: du Plenkst [1]

und tschüss,
Didi

Fußnötiges:
=[1] http://de.wikipedia.org/wiki/Plenken
Man muß zwar nicht ausgesprochen blöd sein, um hier zu arbeiten - aber
es erleichtert die Sache ungemein.

Ähnliche fragen