PDA

Vollständige Version anzeigen : Hintergrund - Zellinhalt


rolio
17.07.2006, 08:38
liebe forums-user,

habe ein grosses problem mit vba. habe in einem tabellenblatt eine spalte, in der einige zellen mit einer hintergrundfarbe definiert sind (gelb). die dieselben zeilen sollen in einer anderen spalten mit dem wert "x" belegt werden. habe folgendes vba übernommen:
Sub Hintergrund()

Dim Zelle1 As Range
Dim Zelle2 As Range

For Each Zelle2 In Range("e2:e419")
For Each Zelle1 In Range("i2:i419")
If Zelle2.Interior.ColorIndex = 6 Then Zelle1.Value = "x"
Next Zelle1
Next Zelle2
End Sub


es schreibt mir jedoch in der spalte i in jede zeile ein x. kann mir bitte jemand weiterhelfen?
lg,
rolio

R J
17.07.2006, 11:42
Hi Rolio,

Die Zelle als Variant deklarieren und den Range so festlegen wie gewünscht. Bsp.:

Dim Bereich$, Zelle

Bereich = "e2:e419"

For Each Zelle In range(Bereich)
If Zelle.Interior.ColorIndex = 6 Then Zelle.offset(0,4)= "x"
Next

End Sub

Ciao, Ralf