Guten Tag Weihnachtsfreunde

Kann mir jemand Helfen?

Wie kann ich den Code schreiben, dass f27 * g27 auf h27 zusammengerechnet wird?

Mein Code:

Private Sub Sub_Stein()

Select Case Stein_Dimension

Case "65/45"
Application.Sheets("Berechnung").Range("d27").Value = Bild_Anzahl

With Application.Sheets("Berechnung")

.Range("f27").Value = ("65")
.Range("g27").Value = ("45")
.Range("h27").Value = ("f27") * ("g27")


End With

Case Else

End Select

Vilen Dank für Deine Mithilfe!

Gruss michel