Office: Formel per VBA einfügen

Guten Tag,

ich würde gerne eine Formel in eine Zelle per VBA einfügen.
Beispiel:
In der Zelle D44 ist ein Dropdown. Wenn in dem Dropdown "Ja" ausgewählt wurde, soll in F44 die Formel: "=(F42+F43)/80*20" stehen.
Wenn im Dropdown was anderes ausgewählt wurde, soll in F44 kein Text stehen.

Wie bekommt man sowas am besten hin?

Mit freundlichen Grüßen

DanieI

 

=wenn(D44= "Ja";(F42+F43)/80*20;"")

Wenn du damit weitermachen willst, würde ich dir ein paar Kurse bei Udemy empfehlen,
Wenn es nichts kosten darf -> Youtube

Pan

 

Das Problem daran ist, dass in der Zeile F44 dann die Formel steht, wenn im Dropdown was anderes als "Ja" ausgewählt wurde, wird in F44 etwas von Hand eingetragen.
Deswegen wäre es cool, wenn man die Zelle leer lässt und nur wenn benötigt, automatisch die Formel zuweist.

 

Ah du willst gegen die Excellogik "Eine Zelle ist entweder Eingabe ODER Ausgabe" verstossen.
Dazu brauchst VBA .. würde ich selbst niemals machen, ist in meiner Welt ein Designfehler.

Pan

 

Ist sowas aber möglich oder muss ich mir dafür etwas anderes überlegen?

 

Das hatte Pan schon erwähnt: du brauchst dafür VBA, wobei ich da auch so meine Zweifel hätte. Du sagst, da ist ein DropDown drin, der vermute ich jetzt mal, über die "Gültigkeit" geregelt ist. Wenn das so ist, dann kannst du die Zelle ja gezielt bei Änderung abfragen und die Formel in die Zelle reinschreiben lassen.

 

Hallo,

was bereits meine Vorredner betont haben, darauf möchte auch ich hinweisen, dass deine Wünsche eine fehlerträchtige Situation ergeben. Aus diesem Grund habe ich, sobald die Formel in F44 gelöscht wird, eingebaut, dass eine Messagebox erscheint, die auf dieses Ereignis hinweist.
Das Makro ist ereignisgesteuert. Sobald sich in Zelle D44 der Wert des DropDowns ändert, wird in F44 die Formel erzeugt oder der Zellinhalt gelöscht, falls in F44 eine Formel enthalten war.

Das nachfolgende Makro kopieren und im Codemodul des Arbeitsblattes einfügen, in dem sich auch das DropDown für Zelle D44 befindet:

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim WertD44 As Variant
  With Target
    If .Cells.Count > 1 Then Exit Sub
    If .Address = "$D$44" Then
      WertD44 = .Value
      With Me.Range("F44")
         If WertD44 = "Ja" Then
            .Formula = "=(F42+F43)/80*20"
         Else
            If Left(.Formula, 1) = "=" Then
               MsgBox Prompt:="Die Formel '" & .Formula & "'" & vbNewLine & "wird gelöscht. " & _
                              vbNewLine & "Ein Zahlenwert ist händisch einzugeben.", _
                      Buttons:=vbCritical + vbOKOnly, _
                      Title:="Formellöschung in Zelle F44"
               .Clear
            End If
         End If
      End With
    End If
  End With
End Sub