Bereich berechnen lassen

[Basti5]

Einen schönen guten Morgen zusammen,

folgendes Problem ist aufgetreten:

In einer Tabelle stehen Spalte B (Zellen B3 bis B54) verschiedene Werte (von 45 bis 4713), diese Werte sollen mit einem Makro in Spalte C ausgerechnet werden. In Zelle C3 steht der Faktor (0,3).

Ich habe mir dementsprechend folgenden Code zusammengebastelt:

Sub test()

Dim i As Integer
Dim t As Integer
For i = 3 To 54
For t = 3 To 54

Worksheets("Tabelle1").Cells(i, 3).Value = Cells(t, 2).Value * Cells(1, 3).Value

Next t
Next i

End Sub

Problem hierbei ist, es rechnet zwar etwas aus aber a) das falsche und b) es kommt immer das gleiche Ergebnis raus. Ich bekomme in Zelle der Spalte C das Ergebnis 1413, obwohl in C3 = 13,5 in C4 = 24 usw. sein müsste.

Wo liegt der Fehler? Wisst Ihr das zufällig?

Viele Grüße

Basti

[chris-ka]

Guten Morgen,

Wo liegt der Fehler? Wisst Ihr das zufällig?

Für mich zumindest ist das klar....
Ja, es liegt an der fehlenden Beispieldatei in welcher erkennbar sein sollte was du erreichen willlst.

obwohl in C3 = 13,5 in C4 = 24 usw...

ohne Daten schwer zu sagen, oder?

warum >2500 Schlefendurchgänge?
ist deine Variable wirklich in C3?
im Code ist es C1

klingt für mich nach einer einfachen Formel in C3

=B3*C$1

[Basti5]

Ich kann die Datei heute mittag mal hochhochladen - bin schon auf dem Weg zur Uni.

Viele Grüße 

Bastitle

[Basti5]

P.S. Ist ein Tippfehler , die Variable steht wirklich in C1.

[BoskoBiati]

Hallo,

eine Schleife zuviel:

Code:

Sub test()

Dim i As Integer
For i = 3 To 54
     Cells(i, 3) = Cells(i, 2) * Cells(1, 3)
Next i

End Sub

[Basti5]

Edgar du hattest Recht- vielen Dank!!!