Schleife mit For... Next funktioniert nicht!

17/10/2007 - 08:58 von Julia | Report spam
Hallo liebe Foristen,

bitte um Eure Hilfe:

Folgendes Makro funktioniert nicht:

temp1 = Range("gas01").Value
temp2 = Range("gas02").Value
temp3 = Range("gas03").Value
temp4 = Range("gas04").Value
temp5 = Range("gas05").Value
temp6 = Range("gas06").Value
temp7 = Range("gas07").Value
temp8 = Range("gas08").Value
temp9 = Range("gas09").Value
temp10 = Range("gas10").Value
temp11 = Range("gas11").Value
temp12 = Range("gas12").Value
temp13 = Range("strom01").Value
temp14 = Range("strom02").Value
temp15 = Range("strom03").Value
temp16 = Range("strom04").Value
temp17 = Range("strom05").Value
temp18 = Range("strom06").Value
temp19 = Range("strom07").Value
temp20 = Range("strom08").Value
temp21 = Range("strom09").Value
temp22 = Range("strom10").Value
temp23 = Range("strom11").Value
temp24 = Range("strom12").Value
temp25 = Range("strom13").Value


' -- run different classes

Dim i As Integer
For i = 1 To 25

Range("b2").Select
ActiveCell.FormulaR1C1 = temp_i
Range("f46:aj46").Select
Selection.Copy
Cells(47 + i, 6).Select
'Range("f(47+i)").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Next i

' ________________________________________

End Sub


Unter Zelle "b2" ist über Daten -> Gültigkeit eine Liste hinterlegt,
welche die Werte für die einzelnen "temps" ausgibt.

Der Fehler liegt wohl bei

ActiveCell.FormulaR1C1 = temp_i


denn wenn ich beispielsweise temp2 ausprobiere, funktioniert es.

Würde mich über konstruktive Lösungsvorschlàge freuen.

Vorab vielen Dank,
Julia
 

Lesen sie die antworten

#1 Alexander Wolff
17/10/2007 - 09:59 | Warnen spam
Deklariere Deine einzelnen Temp zu Beginn des Codes mit

Dim Temp(25)

und verwende dann statt der Einzelzuweisungen

For i = 1 to 25
temp(i) = Range("gas"&Format(i, "00")).Value
Next

und spàter

ActiveCell.FormulaR1C1 = temp(i)
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen