In dieser Schleife (unten) kommt es in Zeile 32767 zu der genannten Fehlermeldung. Das Programm stoppt in der Zeile
Range("F" & intLetzteZeile2 + 8).Select
Hat das mit dem Zwischenspeicher zu tun? Kann ich ihn automatisch vor jeder neuen intZeile löschen?
Danke für Hilfe
Silke
For intZeile = intStartzeile To intEndzeile
Range("I" & intZeile).Select
intLetzteZeile2 = Worksheets("Fondsmonate").Cells(Rows.Count, 6).End(xlUp).Row
If Selection.Value = 1 Then
Range("F" & intZeile).Select
Selection.Copy
Range("F" & intLetzteZeile2 + 1).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 2).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 3).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 4).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 5).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 6).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 7).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 8).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 9).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 10).Select
ActiveSheet.Paste
Range("F" & intLetzteZeile2 + 11).Select
ActiveSheet.Paste
End If
Next intZeile