PDA

Vollständige Version anzeigen : Bestimmte Zellen markieren


SeNf
21.04.2009, 10:34
moin,
ich habe mal wieder eine frage
und zwar habe ich folgenden code:
Dim Zell As Range
Dim fFree2 As Long

fFree2 = Rows.Count
If Cells(fFree2, "A").Value = "" Then
fFree2 = Cells(Rows.Count, "A").End(xlUp).Row
End If

'XXXXXXXXXXXXXXXXXXXXX

For Each Zell In Selection
Select Case Zell.Interior.ColorIndex
Case Is = 37
Zell.Value = "Text"
End Select
Next
ich suche also meine letzte beschriftete zeile anhand spalte A aus und möchte jetzt alle zellen markieren von zb. B2 bis eben B "fFree2" damit ich den markierten zellen dann einen text zusweisen kann und danach möchte ich noch die markierung aufheben, wie mach ich das?
Gruß
Steffen

jinx
21.04.2009, 10:44
Moin, Steffen,

so z.B. (da braucht auch keine Markierung aufgehoben werden):

Dim Zell As Range
Dim fFree2 As Long

fFree2 = Rows.Count
If Cells(fFree2, "A").Value = "" Then
fFree2 = Cells(Rows.Count, "A").End(xlUp).Row
End If

'XXXXXXXXXXXXXXXXXXXXX

For Each Zell In Range("B2:B" & fFree2)
Select Case Zell.Interior.ColorIndex
Case Is = 37
Zell.Value = "Text"
Case Else
End Select
Next Zell

SeNf
21.04.2009, 12:27
super geht so, danke
Gruß
Steffen