Inhalte

# Anweisung While…Wend

Wenn ein Programm auf eine Anweisung While stößt, testet es die Bedingung. Wenn die Bedingung False ist, wird das Programm direkt nach der Anweisung Wend fortgesetzt. Wenn die Bedingung True ist, wird die Schleife ausgeführt, bis das Programm Wend findet und springt dann zurück zur Anweisung While. Wenn die Bedingung immer noch True ist, wird die Schleife erneut ausgeführt.

Im Gegensatz zur Anweisung Do…Loop können Sie eine Schleife While…Wend nicht mit Exit abbrechen. Verlassen Sie niemals eine Schleife While…Wend mit GoTo, da dies zu einem Laufzeitfehler führen kann.

Ein Do…Loop ist flexibler als ein While…Wend.

### Syntax:

        While Condition [statements] Wend

### Beispiel:

      Sub ExampleWhileWend
          Dim stext As String
          Dim iRun As Integer
          sText ="Dies ist ein kurzer Text"
          iRun = 1
          While iRun < Len(sText)
              If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1) = Chr( 1 + Asc( Mid(sText,iRun,1 )) )
              iRun = iRun + 1
          Wend
          MsgBox sText,0,"Text verschlüsselt"
      End Sub

Verwandte Themen

Anweisungen Do…Until oder Do…While

Anweisung Exit