Public rngauswahl As Range
Public anz_punkte As Integer
Private Sub uf_bereich_refedit_Click()
If Len(Me.RefEdit1) Then
Set rngauswahl = Range(Me.RefEdit1)
rngauswahl.Select
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
anz_punkte = 5
xs = rngauswahl(1, 1).Value
ys = CDbl(rngauswahl(1, 2).Value)
xs = CDbl(xs)
ys = CDbl(ys)
For i = 0 To anz_punkte
xa = rngauswahl(i, 1).Value
ya = rngauswahl(i, 2).Value
xa = CDbl(xa)
ya = CDbl(ya)
Area = Area + (ys + ya) * (xs - xa)
xs = xa
ys = ya
Next i
xa = CDbl(rngauswahl(1, 1).Value)
ya = CDbl(rngauswahl(1, 2).Value)
Area = Area + (ys + ya) * (xs - xa)
gauss_area = Abs(Area) / 2
MsgBox (gauss_area)
Unload Me
End Sub