Warum sollte er extra die if abfrage x mal schreiben wenn ein Einzeiler reichen würde? Ich denke er hat die Zeilen und Spalten bei Cells verwechselt.
hier mal eine Idee die noch eine neue Zeilenummer ermittelt. Das kann ersetzt werden durch eine andere Ermittlungsmethode für die Zielzeile.
dim i&, lastcol&, lrow&
lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToRight).Column
lrow = ActiveSheet.Cells(Rows.count,1).End(xlup).row + 1
for i =60 to lastCol '125 ??
ActiveSheet.Cells(lrow, i).Value = iif(Me.controls("CheckBox" & i).Value,"X","")
next
|