Clever-Excel-Forum

Normale Version: Bereich berechnen lassen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Guten Morgen,

Zitat: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.
Zitat: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
Ich kann die Datei heute mittag mal hochhochladen - bin schon auf dem Weg zur Uni.

Viele Grüße 

Bastitle
P.S. Ist ein Tippfehler , die Variable steht wirklich in C1.
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
Edgar du hattest Recht- vielen Dank!!!  Sleepy