"Summe = Summe + variable" geht bedingt
09.10.2003 17:08:18
Xico
ich habe eine Mappe X, in der mein Code nicht funktioniert ("Lauzeitfehler 13: variabeln unverträglich"). In einer jungfäulichen Beispielmappe geht er aber!
Hier der Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Summery
Dim o, p, q As Integer
Summery = 0
For o = 4 To 13
For p = 5 To 16
For q = 2 To 4
Summery = Summery + Worksheets(q).Cells(o, p)
Next q
Cells(o, p) = Summery
Summery = 0
Next p
Next o
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
und die jungfäuliche Mappe:
https://www.herber.de/bbs/user/1361.xls
Komischerweise geht aber der Code in meiner Mappe X, der ähnlich aufgebaut ist und so aussieht:
Private Sub Worksheet_Activate()
Dim Summen
Dim i, j As Integer
Summen = 0
For i = 3 To 14
For j = 3 To 53
Summen = Summen + Worksheets(j).Cells(38, i + 2)
Next j
Cells(65, i) = Summen / 2
Summen = 0
Next i
End Sub
Wer weiss evtl. bescheid?
Vorab schon mal Danke!
Xico
Anzeige