DruckversionEinige Steueranweisungen
Ein einfaches Beispiel mit Entscheidungen und Zyklus
Öffnen Sie die Arbeitsmappe Lösung Variable und Steuerelemente.xlsm. Im Tabellenblatt Tabelle1 finden Sie eine einfache Rechenaufgabe. Ein Klick auf den Button EinmalEins präsentiert die Lösung.
Beispiel für Entscheidung und Zyklen
Option Explicit
Dim Eingabewert As Variant 'Lässt auch Texteingabe zu
Dim Ganz As Integer
Dim I As Byte
Sub einmaleins()
Eingabewert = InputBox("Bitte eine ganze Zahl zwischen 1 und 20", "Eingabe")
If Eingabewert < 1 Or Eingabewert > 20 Then
MsgBox "eingegebene Zahl " & Eingabewert & " ist falsch!"
Exit Sub
End If
Ganz = Eingabewert
Worksheets("Tabelle1").Range("E3").Value = Ganz
For I = 1 To 20
Worksheets("Tabelle1").Cells(4 + I, 4).Value = Ganz
Worksheets("Tabelle1").Cells(4 + I, 6).Value = I * Ganz
Next
End SubDie im Beispielcode verwendeten Steueranweisungen If-Then-Entscheidung, Zyklus For - Next und neue Methoden und Eigenschaften werden nachfolgend erläutert.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied