'zelle.HasArrayFormula' produziert Fehlercode 438
23.05.2025 11:42:53
Ploenlx
ich hänge schon seit ein paar Stunden mit KI unterstütztem Debugging an folgendem Problem. Vorausgeschickt: Ich habe kaum Ahnung von VBA. Der Code stammt von Gemini 2.5.
Das Problem tritt bei mir schon in einer sehr einfachen Testumgebung auf:
Frisches Excel-Blatt. A1=10, B1=0, C1=A1/B1
Zelle C1 wird markiert und dann folgender VBA-Code ausgeführt:
Sub TestNurHasArrayFormulaEigenschaft()
Dim testZelle As Range
Dim bHatArrayFormel As Boolean
Dim sFormel As String
Dim bHatFormel As Boolean
On Error GoTo FehlerTratAuf
If TypeName(Selection) > "Range" Then
MsgBox "Bitte markieren Sie eine einzelne Zelle.", vbInformation
Exit Sub
End If
If Selection.Cells.CountLarge > 1 Then
MsgBox "Bitte markieren Sie nur EINE einzelne Zelle.", vbInformation
Exit Sub
End If
Set testZelle = Selection.Cells(1)
MsgBox "Teste Zelle: " & testZelle.Address, vbInformation
' Schritt 1: .HasFormula testen
bHatFormel = testZelle.HasFormula
MsgBox "Ergebnis für .HasFormula: " & bHatFormel, vbInformation
If Not bHatFormel Then
MsgBox "Die Zelle enthält laut .HasFormula keine Formel. Test wird hier abgebrochen.", vbExclamation
Exit Sub
End If
' Schritt 2: .Formula lesen
sFormel = testZelle.Formula
MsgBox "Ergebnis für .Formula: " & sFormel, vbInformation
' Schritt 3: .HasArrayFormula testen (hier trat der Fehler 438 zuletzt auf)
MsgBox "Versuche jetzt .HasArrayFormula abzufragen...", vbInformation
bHatArrayFormel = testZelle.HasArrayFormula ' DIE KRITISCHE ZEILE
MsgBox "Abfrage von .HasArrayFormula erfolgreich. Ergebnis: " & bHatArrayFormel, vbInformation
Exit Sub
FehlerTratAuf:
MsgBox "Ein VBA-Fehler ist aufgetreten während 'TestNurHasArrayFormulaEigenschaft':" & vbCrLf & vbCrLf & _
"Fehlernummer: " & Err.Number & vbCrLf & _
"Beschreibung: " & Err.Description & vbCrLf & _
"Fehler vermutlich beim Testen von Zelle: " & testZelle.Address, vbCritical
End SubEs wird deutlich, dass die Abfrage der Zeile .HasArrayFormula den Fehler 438 verursacht. Der genaue Text ist: "Ein VBA-Fehler ist aufgetreten während 'TestNurHasArrayFormulaEigenschaft': Fehlernimmer: 438 Beschreibung: Objekt unterstützt diese Eigenschaft oder Methode nicht. Fehler vermutlich beim Testen von Zelle: $C$1"
Das gleiche Problem taucht auch in meinem ursprünglichen VBA-Code auf. Ich habe das ganze auf einem anderen PC getestet. Auf beiden Rechnern lauft Windows 11, version 24H2 mit Excel Version 2504 (Build 18730.20168).
Gemini ist am Ende und rät zu einer Neuinstallation von MS 365. Ich glaube aber nicht, dass das das Problem lösen wird. Ich wäre für Ratschläge dankbar.
Anzeige