Ich habe da ein Problem und bin schon seit Stunden dabei dieses zu lösen. Vorgeschichte: in einer dynamischen Tabelle Namens "FoTaBel" werden Formeln in der Spalte B abgelegt Damit die Formeln keinen Fehler verursachen wurden diese mit einem Apostroph vor der Formel ausgestattet.
Ich möchte nun den umgekehrten Weg realisieren, aus dieser Tabelle "FoTaBel" die Formel einlesen, das Apostroph entfernen und dann wieder in die Zelle H1 im Arbeitsblatt :NK_Abschlag einschreiben.
Eigentlich funktioniert der Code der von ChatGPT stammt, aber da ist noch ein Fehler den selbst die KI nicht lösen kann: In der Eingabeleiste erscheint die Formel Korrekt zb :=Summe(A1:A10) in der Zelle H1 steht aber '#NAME? Und das ist der Fehler. Da sollte nun eigentlich die Formel drin stehen.
Die Codezeile ergebnis = Application.Evaluate(wsNK_Abschlag.Range("H1").formula) liefert mir diese Fehlermeldung: : ergebnis : Fehler 2029 : Variant/Error.
Kann mir da irgendjemand Helfen das das Script funktioniert ? Nachfolgend der ganze Code:
Sub letzteZeileInFoTaBel()
' Deklaration der Variablen
Dim wsFoTaBel As Worksheet
Dim wsNK_Abschlag As Worksheet
Dim letzteZeile As Long
Dim ergebnis As Variant
' Setzen der Arbeitsblätter
Set wsFoTaBel = ThisWorkbook.Worksheets("Tab_Formeln")
Set wsNK_Abschlag = ThisWorkbook.Worksheets("NK_Abschlag")
' Bestimmung der letzten Zeile in der Tabelle FoTaBel
letzteZeile = wsFoTaBel.Cells(Rows.Count, "A").End(xlUp).Row
' Auslesen der Formel aus der letzten Zeile in Spalte B und Entfernen des führenden Apostroph
Dim letzteFormel As String
letzteFormel = Replace(wsFoTaBel.Range("B" & letzteZeile).Value, "'", "")
' Schreiben der Formel in die Zelle H1 auf dem Arbeitsblatt NK_Abschlag
wsNK_Abschlag.Range("H1").formula = letzteFormel
' Überprüfen, ob die Zelle H1 ein gültiges Ergebnis enthält
On Error Resume Next
ergebnis = Application.Evaluate(wsNK_Abschlag.Range("H1").formula)
On Error GoTo 0
' Anzeige des Ergebnisses in einer MsgBox oder Fehlermeldung bei ungültigem Ergebnis
If IsNumeric(ergebnis) Then
MsgBox "Wert in H1: " & ergebnis
Else
MsgBox "Fehler: Zelle H1 enthält kein gültiges Ergebnis."
End If
End Sub