20.07.2020, 16:22
Hallo allerseits,
Heute versuche ich, in VBA eine Zelle mit einer Formel zu befüllen.
Hier erstmal die Formel, welche ich in eine Zelle schreiben möchte :
Mein VBA Code (gekürzt der Einfachheit halber) :
Der Code funktioniert soweit, bis auf den Part mit der Formel, dementsprechend liegt der Fehler auch sicher dort.
Fehlermeldung die VBA spuckt ist :
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Hat jemand eine Idee woher dieser Fehler stammt? Stehe leider aktuell komplett aufm Schlauch und kriege meinen Code nicht gefixt, wäre toll wenn mir da wer weiterhelfen kann.
Lg, Majusch
Heute versuche ich, in VBA eine Zelle mit einer Formel zu befüllen.
Hier erstmal die Formel, welche ich in eine Zelle schreiben möchte :
Code:
=WENNNV(WENN(SVERWEIS($B26;Gruppierung!F:F;1;FALSCH)=$B26;INDEX(Gruppierung!B:B;VERGLEICH($B26;Gruppierung!F:F;0));Error);"Nicht zugeordnet")Mein VBA Code (gekürzt der Einfachheit halber) :
Code:
Sub newComp()
Dim Benutzererfassung As String
Benutzererfassung = "=WENNNV(WENN(SVERWEIS($B26;Gruppierung!F:F;1;FALSCH)=$B26;INDEX(Gruppierung!B:B;VERGLEICH($B26;Gruppierung!F:F;0));Error);""Nicht zugeordnet"")"
For WS = 200 To 250 Step 1
If Cells(WS, 2) = "PLACEHOLDERWSE" Then
If IsEmpty(Cells(WS - 1, 2).Value) = False Then
Cells(WS, 3).Formular = Benutzererfassung
Exit For
End If
End If
Next WS
End SubDer Code funktioniert soweit, bis auf den Part mit der Formel, dementsprechend liegt der Fehler auch sicher dort.
Fehlermeldung die VBA spuckt ist :
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Hat jemand eine Idee woher dieser Fehler stammt? Stehe leider aktuell komplett aufm Schlauch und kriege meinen Code nicht gefixt, wäre toll wenn mir da wer weiterhelfen kann.
Lg, Majusch
