VBA Excel

Hvordan har du defineret "Retur" ? global ? lokal ?

Der fik du mig - ved det ikke, det min allerførste tur i VBA.
Men den står til All Open Workbooks.

Hvis Stop aktiveres, er makroen "Retur" kørt.
Hvis den er det er det snarer makroen "Retur", vi skal kikke påom der er fejl i den.

Sub beregn()
'
' beregn Macro

If Range("k239") <> 7 Then
  MsgBox "Der mangler inddata - check en ekstra gang."
  Call Retur
  Stop ' når stop nås, stopper afviklingen af makroen, sæt ' foran, hvis den ikke skal bruges
  ElseIf Range("i19").Value > Range("b232").Value Then
  MsgBox "Samlede afdrag er større end lån - ret afdrag i Drop Down box"
  Call Retur
  Stop ' når stop nås, stopper afviklingen af makroen, sæt ' foran, hvis den ikke skal bruges
  End If
    Range("A53").ClearContents
    Application.Calculation = xlAutomatic
    Range("k585").Select
End Sub

1000 tak - det virker., men hvordan får point af mig?

Hvad virker, koden, køres makroen retur ??

Hej.


Det var stop der løste problemet, havde overset at en Call ikke slutter i den kaldte macro - og det selv om jeg har arbejdet meget med macro i Lotus 123.

VH

Hvordan med points?

Så skal du ikke bruge Stop, men Exit Sub

Sub beregn()
'
' beregn Macro

If Range("k239") <> 7 Then
  MsgBox "Der mangler inddata - check en ekstra gang."
  Call Retur
    Exit Sub
  ElseIf Range("i19").Value > Range("b232").Value Then
  MsgBox "Samlede afdrag er større end lån - ret afdrag i Drop Down box"
  Call Retur
  Exit Sub
  End If
  ' resten herunder udføres kun hvis de 2 If ovenover ikke trikker
    Range("A53").ClearContents
    Application.Calculation = xlAutomatic
    Range("k585").Select
End Sub

Yes, havde fundet statement.

VH