Mit folgendem Code übertrage ich Daten aus einem Tabellenblatt in ein Spreadsheet-Objekt auf einem Userform. Problem ist das die Spalten die ausgelesen werden und die Spalten in die die Werte eingefügt werden nicht deckungsgleich sind. Durch eine Korrektur des Zählers "Spalten+2" kann ich das ja erreichen. Allerdings schaffe ich mir da auch mein Problem denn bekanntlich hat ein Tabellenblatt nur 255 Spalten. Die letzten beiden Spalten des Tabellenblattes kann ich also so nicht auslesen. Kennt jemand das Problem und weiss wie ich das umgehen kann ?
Freue mich auf eure Ideen,
Gruss,
Francois
For Zeilen = 4 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For Spalten = 1 To 253
'PROBLEM da Werte von mehr als 253 z.B. 1 To 255 zu einem Fehler beim auslesen des Tabellenblattes wo es nur 255 Spalten gibt und nicht 257.
Spreadsheet1.Cells(Zeilen, Spalten) = _
Sheets("Intrans_Plantes").Cells(Zeilen + 56, Spalten + 2)
Next Spalten
Next Zeilen