Option Explicit
Public rngAuswahl As Range, Auswahl
Public anz_punkte As Integer
Private Sub uf_bereich_refedit_Click()
If Len(Me.RefEdit1) Then
Set rngAuswahl = Range(Me.RefEdit1)
rngAuswahl.Select
Auswahl = rngAuswahl.Value
End If
Hide
Dim i As Double
Dim Area As Double
Dim xs As Double
Dim gauss_area As Double
Dim ys As Double
Dim xa As Double
Dim ya As Double
Dim W1 As Double, W2 As Double
anz_punkte = 5
W1 = getNum(Auswahl(1, 1))
W2 = getNum(Auswahl(1, 2))
xs = W1
ys = W2
For i = 0 To anz_punkte
xa = getNum(Auswahl(i, 1))
ya = getNum(Auswahl(i, 2))
Area = Area + (ys + ya) * (xs - xa)
Next i
xs = xa
ys = ya
xa = W1
ya = W2
Area = Area + (ys + ya) * (xs - xa)
gauss_area = Abs(Area) / 2
MsgBox (gauss_area)
Unload Me
End Sub
Private Function getNum(V) As Double
If IsNumeric(V) Then getNum = CDbl(V)
End Function