Cells auf Range umändern
RainerK
brauche mal wieder Hilfe.
Diese Codezeilen lassen sich doch bestimmt auch in eine Zeile mit "Range" ändern oder?
wks.Cells(CLng(.List(iIndex, 0) + 1), 9) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 10) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 11) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 14) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 15) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 16) = ""
wks.Cells(CLng(.List(iIndex, 0) + 1), 17) = ""
Funktioniert zwar, aber wenn ich den Code kürzen kann wäre mir das natürlich lieber.Gruß RainerK