for iCol=22To42......aber nur die geraden Spalten
05.08.2004 08:22:38
Peter
mit untenstehendem Code möchte ich aus dem Spreadsheet heraus Werte in die Tabelle schreiben.....funktioniert auch einwandfrei....ich möchte jedoch bei den Spaltenangaben zwischen 22 und 42 nur die "geraden" Spalten ansprechen, in den "ungeraden" Spalten dürfen keine Änderungen stattfinden...
Private Sub Spreadsheet1_Click(ByVal EventInfo As OWC.SpreadsheetEventInfo)
Dim iRow As Integer, iCol As Integer
For iRow = 16 To 100
For iCol = 22 To 42
Cells(iRow, iCol).Value = _
Spreadsheet1.Cells(iRow, iCol).Value
Next iCol
Next iRow
End Sub
Wie drückt man das aus, hat jemand Rat für mich?
Vielen Dank
Peter S.
Anzeige