Office: VBA format von zelle übernehmen

Hallo

Hab ein Problem
Möchte von zelle I9 das format auslesen und in J9 übertragen, doch es geht nicht.
was ist falsch?

Code:

Private Sub ToggleButton13_Click()
If ToggleButton13 = True Then
ToggleButton13.BackColor = &HFF&
Range("K9").Value = ""
Range("J9") = ZELLE("Format", I9).FormulaLocal = "=K9/E9"
Else
ToggleButton13.BackColor = &HFF00&
Range("K9").FormulaLocal = "=E9*I9"
Range("J9") = ZELLE("Format", I9).FormulaLocal = "=K9/E9"
End If
End Sub

In I9 kann % ( 0% ) stehen oder eine Zahl (0 oder 0,00 )

 

Hallo!

Code:

Range("J9").NumberFormat = Range("I9").NumberFormat

 

Hallo Schatzi
Super funktioniert einwandfrei Danke

Was mache ich wenn vor der Formel die in K9 geschrieben wird, überprüft werden soll was für ein Format I9 hat.

Sprich :

Wenn I9 Format ist % dann ......
wenn I9 Format ist Zahl dann .......

Gruß Rene

 

Hallo!

Code:

If Range("J9").NumberFormat = "0%" Then
         'mach was
Else
         'mach was anderes
End If

 

Super Genial

Vielen Dank