Sub oder Function ist nicht definiert?
13.06.2015 11:35:17
Jubeldibub
Hallo,
ich habe bei einer recht langen Sub von mir das Problem, dass er beim Ausführen "Sub oder Function ist nicht definiert" meckert, sobald er über den unteren Codeschnipsel (ab "->") stolpert:
Public SPArt As Long
Public Zone As Long
Public SP As Long
Private Sub ButtonBestätigen1_Click()
If SPArt = 1 And Zone = 1 Then
Range("CB15").Value = Range("CB15").Value - SP
Range("CB16").Value = Range("CB16").Value - Format((SP / 2), 0)
If SP >= Range("CB25").Value Then
Range("CB31").Value = Range("CB31").Value + 1
End If
If SP >= Range("CB26").Value Then
Range("CB31").Value = Range("CB31").Value + 1
End If
If SP >= Range("CB27").Value Then
Range("CB31").Value = Range("CB31").Value + 1
End If
End If
' ->
If Worksheet("XY").Range("AR24") > 0 Then
Worksheet("XY").Range("AR32").Value = Worksheet("XY").Range("AR32").Value - Format((SP / 2), 0)
End If
If Worksheet("XY").Range("AR32") <= 0 And Range("AR24").Value > 0 Then
Worksheet("XY").Range("AR24").Value = Worksheet("XY").Range("AR24").Value - 1
Worksheet("XY").Range("AR32").Value = Worksheet("XY").Range("AR32").Value + (Worksheet("XY"). _
Range("AR32").Value * 20)
End If
If Worksheet("XY").Range("AR32") <= 0 And Range("AR24").Value > 0 Then
Worksheet("XY").Range("AR24").Value = Worksheet("XY").Range("AR24").Value - 1
Worksheet("XY").Range("AR32").Value = Worksheet("XY").Range("AR32").Value + (Worksheet("XY"). _
Range("AR32").Value * 20)
End If
End If
End Sub
Die ersten "Range" beziehen sich auf die Mappe, von der aus die UserForm aufgerufen wird (in der dann ein Button die Sub auslöst). Die späteren "Range" beziehen sich eben auf das Tabellenblatt "XY". Liegt das Problem daran, dass ich die ersten nicht definiere?
Wenn ich den Bereich ab "->" weglasse, läuft alles einwandfrei. Hoffe ihr könnt mir helfen.