Excel VBA - vložení vzorce do proměnné Vyřešeno

[Azuzula]

Ahoj, chtěla jsem se zeptat, jestli je možné do proměnné vložit vzorec a ne jen jeho výsledek.

Ten kód dole mi vypočítá vzorec v buňce a k výsledku do buňky připíše to co vložím z inputboxu.
A já bych potřebovala ve výsledku tohle např:
před "=10+11"
po "=10+11+12"

Kód: Vybrat vše

Sub pricti_castku()
    Dim stara_castka As Integer
    Dim nova_castka As Integer
   
    On Error GoTo konec
    stara_castka = Activecell
    nova_castka = InputBox("Nová částka k přičtení")
    If Activecell = "" Then
        Activecell.Value = "=" & nova_castka
    ElseIf Activecell <> "" Then
        Activecell.Value = stara_castka & "+" & nova_castka
    End If
   
konec:
End Sub


Snad na to existuje jednoduchý řešení. Díky za případný rady.

[Reklama]

[Poki]

mozna takto:

Kód: Vybrat vše

Sub pricti_castku()
    Dim stara_castka As String
    Dim nova_castka As Double
   
    On Error GoTo konec
    stara_castka = ActiveCell.Formula
    nova_castka = InputBox("Nová částka k přičtení")
    If ActiveCell = "" Then
        ActiveCell.Formula = "=" & nova_castka
    ElseIf ActiveCell <> "" Then
        ActiveCell.Formula = stara_castka & "+" & nova_castka
    End If
   
konec:
End Sub

[Azuzula]

Jé, tak tohle mě fakt nenapadlo. A nikde se mi to ani nepodařilo najít...
Je evidentní že se mám ještě hoodně co učit, ale teď už znám další způsob jak jinak vkládat do proměnné.
Díky moc.