Laufzeitfehler 5
05.01.2007 18:49:37
Franc
Bei Fehler stoppt es bei der Zeile
Cells(zeile, spalte) = ChrW(x)
und x hat den Wert 65536.
Was muss man wie verändern, damit es geht? (bitet mit Erklärung)
Sub unicode()
Application.ScreenUpdating = False
x = 1
For zeile = 1 To 2000
For spalte = 1 To 50
Cells(zeile, spalte) = ChrW(x)
x = x + 1
Next
Next
Application.ScreenUpdating = True
End Sub