|
Hallo lieber Mario,
vielen Dank für deine Hilfe. Inzwischen habe ich mit Unterstützung eines Freundes verstanden was zu unternehmen ist und der Code sieht wie folgt aus (Beispiel inzwischen etwas abgewandelt): Allerdings lässt sich der Code noch dahingehend optimieren, dass anstelle der Einzelwerte (B1, B2,... B38) einfach in jedem Schritt die Werte der gesamten Zeile übertragen werden. Vielleicht könntest du dafür einen Lösungsvorschlag posten: Liebe Grüße André
Sub Benchmarks_berechnen()
'Zählt die Schleife von 1 bis 50 in einser Schrittweite durch
Application.ScreenUpdating = False
For i = 1 To 50
Sheets("Kalkulation").Select
Range("B2").Select
ActiveCell.Value = i
Sheets("Ergebnisse Kalkulation_einzeln").Select
Huelle = Range("A2").Value
Huelle2 = Range("B2").Value
Huelle3 = Range("C2").Value
Huelle4 = Range("D2").Value
Huelle5 = Range("E2").Value
Huelle6 = Range("F2").Value
Huelle7 = Range("G2").Value
Huelle8 = Range("H2").Value
Huelle9 = Range("I2").Value
Huelle10 = Range("J2").Value
Huelle11 = Range("K2").Value
Huelle12 = Range("L2").Value
Huelle13 = Range("M2").Value
Huelle14 = Range("N2").Value
Huelle15 = Range("O2").Value
Huelle16 = Range("P2").Value
Huelle17 = Range("Q2").Value
Huelle18 = Range("R2").Value
Huelle19 = Range("S2").Value
Huelle20 = Range("T2").Value
Huelle21 = Range("U2").Value
Huelle22 = Range("V2").Value
Huelle23 = Range("W2").Value
Huelle24 = Range("X2").Value
Huelle25 = Range("Y2").Value
Huelle26 = Range("Z2").Value
Huelle27 = Range("AA2").Value
Huelle28 = Range("AB2").Value
Huelle29 = Range("AC2").Value
Huelle30 = Range("AD2").Value
Huelle31 = Range("AE2").Value
Huelle32 = Range("AF2").Value
Huelle33 = Range("AG2").Value
Huelle34 = Range("AH2").Value
Huelle35 = Range("AI2").Value
Huelle36 = Range("AJ2").Value
Huelle37 = Range("AK2").Value
Huelle38 = Range("AL2").Value
Cells(i + 4, 1).Value = Huelle
Cells(i + 4, 2).Value = Huelle2
Cells(i + 4, 3).Value = Huelle3
Cells(i + 4, 4).Value = Huelle4
Cells(i + 4, 5).Value = Huelle5
Cells(i + 4, 6).Value = Huelle6
Cells(i + 4, 7).Value = Huelle7
Cells(i + 4, 8).Value = Huelle8
Cells(i + 4, 9).Value = Huelle9
Cells(i + 4, 10).Value = Huelle10
Cells(i + 4, 11).Value = Huelle11
Cells(i + 4, 12).Value = Huelle12
Cells(i + 4, 13).Value = Huelle13
Cells(i + 4, 14).Value = Huelle14
Cells(i + 4, 15).Value = Huelle15
Cells(i + 4, 16).Value = Huelle16
Cells(i + 4, 17).Value = Huelle17
Cells(i + 4, 18).Value = Huelle18
Cells(i + 4, 19).Value = Huelle19
Cells(i + 4, 20).Value = Huelle20
Cells(i + 4, 21).Value = Huelle21
Cells(i + 4, 22).Value = Huelle22
Cells(i + 4, 23).Value = Huelle23
Cells(i + 4, 24).Value = Huelle24
Cells(i + 4, 25).Value = Huelle25
Cells(i + 4, 26).Value = Huelle26
Cells(i + 4, 27).Value = Huelle27
Cells(i + 4, 28).Value = Huelle28
Cells(i + 4, 29).Value = Huelle29
Cells(i + 4, 30).Value = Huelle30
Cells(i + 4, 31).Value = Huelle31
Cells(i + 4, 32).Value = Huelle32
Cells(i + 4, 33).Value = Huelle33
Cells(i + 4, 34).Value = Huelle34
Cells(i + 4, 35).Value = Huelle35
Cells(i + 4, 36).Value = Huelle36
Cells(i + 4, 37).Value = Huelle37
Cells(i + 4, 38).Value = Huelle38
Next i
Application.ScreenUpdating = True
MsgBox ("Ergebnisse erfolgreich berechnet und übertragen")
End Sub
|