Zellen färben mit Offset....

Hallo Leute,
ich komme bei einer Sache nicht so recht weiter:
Das makro unten färbt mir die selektierten Zellen im UNion-Range entsprechend der Farbe von N2 und setzt mir den Zelleninhalt von N2 in die
markierten Zellen. Soweit läuft es wunderbar.
Nun soll Excel zusätzlich prüfen
1) Wenn eine oder mehrere Zellen der Spalte LINKS NEBEN des Union-Range (offset,-1) eine bestimmte Farbe haben (vgl. RGB-Wert unten), dann
2) sollen die entsprchenden Zellen im markierten Union-Range leer bleiben, d.h. es soll weder die Farbe noch der Zelleninhalt aus N2 übernommen werden.
Set isect = Intersect(Target, Union(Range("C12:C43"), Range("F12:F43"), Range("I12:I43"), Range("L12:L43"), Range("O12:O43"), Range("R12:R43")))
If Not isect Is Nothing Then
For Each Spalte In isect.Columns
x = x + 1
If x Mod 1 = 0 Then
Spalte.Value = Range("N2").Value
Spalte.Interior.Color = Range("N2").Interior.Color
Spalte.Borders(xlInsideHorizontal).Weight = xlThin
'bis hier hin läufts.
'aber hier tut sich nix...:
If Spalte.Offset(, -1).Interior.Color = RGB(149, 179, 215) Then
Spalte.Value = ""
End If
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi, Danke für deinen Vorschlag. Ich habe das mal versuch umzusetzen, jedoch passiert da gar nichts:
Set isect = Intersect(Target, Union(Range("C12:C43"), Range("F12:F43"), Range("I12:I43"), Range("L12:L43"), Range("O12:O43"), Range("R12:R43")))
If Not isect Is Nothing Then
For Each Spalte In isect.Columns
x = x + 1
If x Mod 1 = 0 Then
Spalte.Value = Range("N2").Value
Spalte.Interior.Color = Range("N2").Interior.Color
Spalte.Borders(xlInsideHorizontal).Weight = xlThin
If Spalte.Interior.Color = 0 Then
MsgBox "Bitte für das 1. Halbjahr " & Range("Q2") & " eine Auswahl treffen!", vbExclamation
Spalte.Interior.Color = RGB(240, 240, 240)
Spalte.Borders(xlInsideHorizontal).Weight = xlThin
Application.CutCopyMode = True
Range("A1").Select
Exit Sub
End
End If
End If
Next
Set feld = Range("C12:C43")
For Each zelle In Feld
'Wenn in Zelle irgendetwas drin steht und die zelle links daneben mit den RGB werten übereinstimmt, setze "nix" in zelle. hier tut sich nichts:
If zelle.Value "" And zelle.Offset(, -1).Interior.Color = RGB(149, 179, 215) Then
zelle.Value = "nix"
End If
Next
End If
?
Chris

Sub farb() Set Feld = Range("C12:C43") Range("b15:B40").Interior.Color = RGB(149, 179, 215) For Each zelle In Feld 'Wenn in Zelle irgendetwas drin steht und die zelle links daneben mit den RGB werten ü _ bereinstimmt, setze "nix" in zelle. hier tut sich nichts: If zelle.Value "" And zelle.Offset(, -1).Interior.Color = RGB(149, 179, 215) Then zelle.Value = "nix" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread