DruckversionFeldvariablen
Erinnern Sie sich bitte an das Beispiel zur Auswertung der größten von vier eingegebenen Zahlen aus dem dritten Kursteil.
Option Explicit
Dim ErsteZahl As Double
ZweiteZahl As Double
DritteZahl As Double
VierteZahl As Double
Dim Größte As Double
Sub Die_größte_von_vier_Zahlen()
'Eingabe
ErsteZahl = InputBox _
"Die erste Zahl bitte.", "Eingabe")
ZweiteZahl = InputBox _
("Die zweite Zahl bitte.", "Eingabe")
DritteZahl = InputBox _
("Die dritte Zahl bitte.", "Eingabe")
VierteZahl = InputBox _
("Die vierte Zahl bitte.", "Eingabe")
Größte = ErsteZahl
If Größte < ZweiteZahl Then _
Größte = ZweiteZahl
If Größte < DritteZahl Then _
Größte = DritteZahl
If Größte < VierteZahl Then _
Größte = VierteZahl
MsgBox "Die größte der eingegebenen Zahlen ist die " _
& Größte, , "Ergebnis"
End SubObige Lösung kann schon als hilflos bezeichnet werden, denn die Prozedur funktioniert nicht bei der Eingabe von mehr oder weniger als vier Zahlen. Wie lösen Sie nun das Problem für 5, 10 oder gar noch viel mehr Variablen? Das effektivste Resultat ermöglichen so genannte Feldvariablen.
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