Freigeben über

WorksheetFunction-Objekt (Excel)

  • Artikel

Wird als Container für Arbeitsblattfunktionen von Microsoft Excel verwendet, die aus Visual Basic aufgerufen werden können.

Beispiel

Verwenden Sie die Eigenschaft WorksheetFunction des Objekts Application, um das Objekt WorksheetFunction zurückzugeben.

Im folgenden Beispiel wird das Ergebnis gezeigt, nachdem die Arbeitsblattfunktion Min auf den Bereich A1:C10 angewendet wurde.

Set myRange = Worksheets("Sheet1").Range("A1:C10") 
answer = Application.WorksheetFunction.Min(myRange) 
MsgBox answer

In diesem Beispiel wird die Arbeitsblattfunktion CountA verwendet, um zu bestimmen, wie viele Zellen in Spalte A einen Wert enthalten. Für dieses Beispiel sollte es sich bei den Werten in Spalte A um Text handeln. In dem Beispiel wird eine Rechtschreibprüfung für jeden Wert in Spalte A ausgeführt. Wenn der Wert einen Rechtschreibfehler aufweist, wird in Spalte B der Text "Wrong" eingefügt. Andernfalls wird in Spalte B der Text "OK" eingefügt.

Sub StartSpelling()
   'Set up your variables
   Dim iRow As Integer
   
   'And define your error handling routine.
   On Error GoTo ERRORHANDLER
   
   'Go through all the cells in column A, and perform a spellcheck on the value.
   'If the value is spelled incorrectly, write "Wrong" in column B; otherwise, write "OK".
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      If Application.CheckSpelling( _
         Cells(iRow, 1).Value, , True) = False Then
         Cells(iRow, 2).Value = "Wrong"
      Else
         Cells(iRow, 2).Value = "OK"
      End If
   Next iRow
   Exit Sub

    'Error handling routine.
ERRORHANDLER:
    MsgBox "The spell check feature is not installed!"
    
End Sub

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.