Code wird nicht richtig erkannt
06.09.2008 19:00:21
Reinhard
wegen einer Anfrage hier (irgendwas mit Lottozahlen) habe ich mir
https://www.herber.de/bbs/user/55214.xls
heruntergeladen.
In Blatt1 steht Zeilenweise der nachstehende Code, den habe ich in den VB-Editor in einem Modul eingefügt.
Die Zeilen
Sub Lotto_moegliche_Kombinationen()
Cells(r, c) = ...
If r > 65536 Then
If c > 256 Then
waren nicht schwarz sondern bunt (rot, grün, k.A., hab Farbsehschwäche und sag mal rot)
Abhilfe war nur dadurch daß ich diese Zeilen löschte, dann neu schrieb.
Aber dann ging es weiter, bei F5 wurden nacheinander alle Zeilen bemängelt, Abhilfe war immer nur Neueingabe, aber da passierten auch seltsame Dinge wenn ich die neu geschribenen Zeilen einrücken wollte, das ging, aber ging ich aus der Zeile raus hing sie wieder "links".
Ich kenne so ein Verhalten nicht. Für mich denkbar wäre, wenn ich da aus einer Tabelle heraus Zeilen als Code einfüge, daß da ein Zeilentrennersteuerzeichen drinsein könnte.
Nach Neustart von Excel passierte das Gleiche. Einfügen des Codes erst in Notepad, dann in das Modul brachte auch nichts.
Beim Bewegen des Cursers durch den Code war davon aber nichts zu erkennen z.B. am Ende der Codezeile.
Meine Bitte wäre nun, daß jmd. sich auch da den Code aus der Tablle "zieht", in ein Modul steckt und mir berichtet was dann geschieht bei F8/F5
Danke ^ Gruß
Reinhard
Sub Lotto_moegliche_Kombinationen()
Dim i As Byte , j As Byte, k As Byte, l As Byte, m As Byte, n As Byte
Dim c As Integer , r As Long
r = 1
c = 1
Application.ScreenUpdating = False
For i = 1 To 49
For j = i + 1 To 49
For k = j + 1 To 49
For l = k + 1 To 49
For m = l + 1 To 49
For n = m + 1 To 49
Cells(r, c) = i & " " & j & " " & k & " " & l & " " & m & " " & n
r = r + 1
If r > 65536 Then
Application.ScreenUpdating = True
c = c + 1
r = 1
ThisWorkbook.Save
If c > 256 Then
c = 1
Worksheets.Add
End If
Application.ScreenUpdating = False
End If
Next
Next
Next
Next
Next
Next
End Sub