Ich habe einige VBA-Funktionen in denen RND vorkommt.
Wie kann ich Excel veranlassen alle Zellen mit diesen Funktionen neu zu berechnen.
ein Worksheets(name).Calculate funktioniert nicht.
Gruss Markus
Private Sub CommandButton1_Click()
DeineFunktion
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errExit
With Target
If .Validation.InCellDropdown Then 'prüft, ob Auswahlliste vorhanden ist
Select Case .Value
Case "Determ."
ActiveCell.Offset(0, 4).Value = "=" & ActiveCell.Offset(0, 1).Address
Case "Dreieck"
ActiveCell.Offset(0, 4).Value = "=Dreieck(" & ActiveCell.Offset(0, 1).Address & "," _
& ActiveCell.Offset(0, 2).Address & "," _
& ActiveCell.Offset(0, 3).Address & ")"
End Select
End If
End With
errExit:
End Sub
Private Sub CommandButton1_Click()
On Error GoTo errExit
With Target
If .Validation.InCellDropdown Then 'prüft, ob Auswahlliste vorhanden ist
Select Case .Value
Case "Determ."
ActiveCell.Offset(0, 4).Value = "=" & ActiveCell.Offset(0, 1).Address
Case "Dreieck"
ActiveCell.Offset(0, 4).Value = "=Dreieck(" & ActiveCell.Offset(0, 1).Address & "," _
& ActiveCell.Offset(0, 2).Address & "," _
& ActiveCell.Offset(0, 3).Address & ")"
End Select
End If
End With
errExit:
End Sub
Function My_Func()
Application.Volatile
' Remainder of the function
">
End Function