Nach Combobox Auswahl > Formel und dann in Zelle

[Pascala]

Hallo zusammen,

ist es möglich das die Combobox Auswahl nicht direkt in die Zelle eingefügt wird.
Sondern eine Formel durchläuft wie diese hier? 
=WENN(ISTZAHL(SUCHEN(".";AB2));AB2;WENNFEHLER(RECHTS(AB2;LÄNGE(AB2)-VERWEIS(999;FINDEN(" ";AB2;ZEILE(AB:AB))));AB2))

Code:

.Range("A1") = Me.ComboBox3.Value

Kann diese Formel leider nicht in VBA umsetzen :(

Liebe Grüße!

[Egon12]

Hallo Pascala,

da keine genaueren Informationen vorhanden sind, hier ein kleines Beispiel wie mittels Auswahl der Combobox deine Formel in die Zelle A1 ein- und ausgetragen wird. Packe das ins Modul der Userform + ComboBox.

Code:

Option Explicit

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = "0" Then
        Tabelle1.Cells(1, 1).FormulaLocal = "=WENN(ISTZAHL(SUCHEN(""."";AB2));AB2;WENNFEHLER(RECHTS(AB2;LÄNGE(AB2)-VERWEIS(999;FINDEN("" "";AB2;ZEILE(AB:AB))));AB2))"
    Else
        Tabelle1.Cells(1, 1).FormulaLocal = ""
    End If
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "Formel eintragen"
        .AddItem "Formel entfernen"
    End With
End Sub

Gruß Uwe