kann man das ende von mehreren farbige cellen ermitteln? Oder geht das nur mit einer schleife?
sowie man das ende der cellen mit werten ermitteln kann.
Code für Werte:
Dim ilastcolumn As Integer
ilastcolumn = Range(Cells(19, 2), Cells(19, Columns.Count)).Find(What:="").Columns
Code für farbe? Bsp funkt. aber nicht
Dim ilastcolumn As Integer
Application.FindFormat.Interior.ColorIndex = 1
i = Cells(1, Columns.Count).End(xlToLeft).Column
ilastcolumn = Range(Cells(19, 2), Cells(19, Columns.Count)).Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Columns
gruß
Marco