öffentlich
Redaktion Druckversion

VBA für Einsteiger - MS Excel 2003 (3)

Einige Steueranweisungen

Ein einfaches Beispiel mit Entscheidungen und Zyklus

Das Beispiel finden Sie in der Arbeitsmappe Lösung Variable und Steuerelemente.xls auf dem Tabellenblatt Tabelle1.

Beispiel für Entscheidung und Zyklen

Zugegeben, das Problem ist nicht ganz alltäglich, es kann auch ohne VBA gelöst werden. Aber unsere derzeitig noch beschränkt verfügbaren Mittel lassen zunächst nur einfache Problemlösungen zu.

Ein Klick auf das Button EinmalEins präsentiert die Lösung.

Der Code dazu:

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 Sub

Die im Beispielcode verwendeten If-Then-Entscheidung, Zyklus For - Next und neue Methoden und Eigenschaften werden nachfolgend erläutert.

Mitglied werden, Vorteile nutzen!

  • Sie können alles lesen und herunterladen: Beiträge, PDF-Dateien und Zusatzdateien (Checklisten, Vorlagen, Musterbriefe, Excel-Rechner u.v.a.m.)
  • Unsere Autoren beantworten Ihre Fragen

Über den Autor:

bild117282

Dieter Frommhold, Jahrgang 1943, Diplom-Lehrer für Physik und Mathematik, Verlagslektor und Programmierer. Seit 1971 langjährige Lehrtätigkeit über Betriebssysteme und Programmierung.

Ab 1994 arbe ...

Newsletter abonnieren