Makro für Umrandung versch. großer Bereiche
02.10.2005 15:28:59
P.
Ich bin total begeistert von dem Forum, das ist ja richtig effektiv!
Noch vor 2 Stunden wusste ich nicht, was Makros sind, und wie sie einem die Arbeit erleichtern können. Jetzt habe ich mich etwas damit beschäftig und mir sogar schon ein Makro aus dem Netz für meine Zecke ummodifiziert. Allerdings fehlt doch noch etwas.
Zu meinem Problem:
In einer Zelle befindet sich ein - (Bindestrich). Das Makro soll nun den Bereich von der Zelle links neben dem - bis zu 2 Zellen rechts neben dem - dick umranden.
Bis jetzt habe ich es leider nur hinbekommen die Bindestrichzelle direkt dick zu umrahmen.
Ein zweites Problem wäre, dass sich in der Zelle direkt über dem - eine Zahl befindet (z.B.: 15). Nun soll der Bereich von links neben dem - und 15 Zeilen darüber bis zu 2 Zellen neben dem - wiederum dick umrandet werden.
Wenn jemand einen Makro - Vorschlag für die beiden Probleme hätte wäre ich sehr dankbar.
Gruß Peter
PS: mein ummodifiziertes Makro sieht so aus:
Sub ZellenUmranden()
' Makro Zellumrandung
Dim Werte As Variant
Werte = Array("-")
Rot = RGB(255, 0, 0)
Schwarz = RGB(255, 255, 255)
For Each Zelle In Selection
For Each Wert In Werte
If UCase(Zelle.Value) = Wert Then
Zelle.Font.Color = Rot
With Zelle.Interior
.Color = xlAutomatic
.Pattern = xlSolid
With Zelle.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With
End If
Next
Next
End Sub