Aufgabe 1:
Erstellen Sie eine Tabelle und befuellen Sie diese mit einigen zufaelligen Zahlen.
Anschliessend soll ein VBA Code erstellt werden, mit dem die Summe aus diesen Zahlen gebildet wird.
----------------------------------------------------
Beispiel mit drei Zahlen:
Private Sub CommandButton1_Click()
Dim zahl1 As Long
Dim zahl2 As Long
Dim zahl3 As Long
Dim sum As Long
-
Cells(4, 1).Value = "Summe: "
zahl1 = Cells(1, 2).Value
zahl2 = Cells(2, 2).Value
zahl3 = Cells(3, 2).Value
'Summe bilden'
sum = zahl1 + zahl2 + zahl3
'Summe ausgeben '
Cells(4, 2).Value = sum
End Sub
-
Aufgabe 2:
Sortieren Sie die von Ihnen angefertigte Tabelle auf- oder absteigend und geben Sie diese in einer Tabelle wieder aus!
Beispiel mit drei Zahlen aufsteigend:
----------------------------------------------------
Option Explicit
Sub sortieren()
'Dim z1, z2, z3 As Integer
'Dim m As Integer
-
'Speicherort meiner Zahlen
Dim zahlen(0 To 3) As Integer
-
'Hilfsvariable
Dim m, i, tmp As Integer
-
For i = 1 To 3
-
zahlen(i) = Cells(i, 1).Value
-
Next i
-
If zahlen(1) > zahlen(2) Then
'Dreieckstausch
tmp = zahlen(1)
zahlen(1) = zahlen(2)
zahlen(2) = tmp
End If
-
If zahlen(1) > zahlen(3) Then
'Dreieckstausch
tmp = zahlen(1)
zahlen(1) = zahlen(3)
zahlen(3) = tmp
End If
-
If zahlen(2) > zahlen(3) Then
'Dreieckstausch
tmp = zahlen(2)
zahlen(2) = zahlen(3)
zahlen(3) = tmp
End If
-
'Ausgabe in Spalte 2:
Cells(1, 2).Value = zahlen(1)
Cells(2, 2).Value = zahlen(2)
Cells(3, 2).Value = zahlen(3)
-
End Sub