nur bis 32766
29.06.2008 19:31:00
Gruber
Ich fülle mit diesem Makro eine Tabelle mit Zahlen aus. Warum funktioniert das nur bis 32766. nachher gibts die Meldung vom Errorhändler. Woran könnte das liegen? Bitte um Eure Hilfe.
Gruss Alois.
Private Sub CommandButton1_Click()
Dim ZahlAnfang%, ZahlEnde%, i%, cl%, seite%
On Error GoTo Errorhandler
ZahlAnfang = TextBox1.Value
ZahlEnde = TextBox2.Value
Range("IV1:IV65536").Value = 1
seite = (ActiveSheet.HPageBreaks(1).Location.Row) - 2
cl = 2
UserForm1.Hide
For i = 8 To seite
Cells(i, cl).Value = ZahlAnfang
If ZahlEnde = ZahlAnfang Then
i = seite + 1
End If
ZahlAnfang = ZahlAnfang + 1
If i = seite Then
i = 7
cl = cl + 2
End If
Next i
Range("IV1:IV65536").Value = ""
Application.ScreenUpdating = True
Exit Sub
Errorhandler:
Beep
MsgBox "Keine zulässige Zahl! Try again!!", , "Falsche Eingabe"
End Sub