wie Argumente übergeben?
S.Rottrigez@gmx.de
wie muss ich jetzt die Argumente in der Sub übergen?
Danke im Vorraus
Option Explicit
Public Function Auflagerkraft(Kennziffer As Integer, n As Integer, L As Double, a As Range, F _
As Range)
Dim AL As Double, AR As Double, I As Double
L = Range("G3")
n = Rows.Count("A1:C7") '
For I = 1 To n
If a.Cells(I, 1) >= L Then
MsgBox (" a dafr nciht größer L sein")
Exit Function
End If
Next I
End Function
Call Auflagerkraft
End Sub