Rechnen in VBA

[Mario]

Hallo zusammen,

habe mal wieder eine Frage an unsere VBA Spezialisten.

Ich bin gerade dabei eine etwas umfangreichere Datei umzubauen.
Nun dürfen in den benutzten Zellen leider keine Formeln stehen. Deshalb habe ich versucht es in VBA zu lösen.

die Formel in Excel ist folgende: =$K$1/J3*F3 (in Zelle K1 steht der feste Wert 1800)

Ich habe versucht es wie folgt zu lösen:

Code:

Sub Berechnen()

Dim i As Integer
Dim j As Integer
Dim e As Integer

   For e = 3 To 28
       For i = 3 To 28
           If Cells(i, 10) = "" Then Exit For
               For j = 3 To 28
                   If Cells(j, 6) = "" Then Exit For
                      Cells(e, 5).Value = 1800 / (Cells(j, 10).Value * Cells(i, 6).Value)
           
       
   Next j
     Next i
       Next e
     
End Sub

Leider bekommen ich ein falsches Ergebnis und die Schleife läuft ewig.

Hat von euch einer eventuell einen Vorschlag?

Danke und LG Mario

[BoskoBiati]

Hi,

ungetestet so:

Code:

Sub test()
Dim i As Integer

For i = 3 To 28
If Cells(i, 10) <> "" And Cells(i, 6) <> "" Then Cells(i, 5) = Cells(1, 11) / Cells(i, 6) / Cells(i, 10)
Next
End Sub

Allerdings müsste es nach Deiner Formel eigentlich so lauten:

Code:

Cells(i, 5) = Cells(1, 11) / Cells(i, 10) * Cells(i, 6)

[Mario]

Hallo Edgar,

funktioniert super  :87: .
Danke dir.

LG Mario