Hallo,

ich benötige ein Auswertungsmakro, das bestimmte Werte aus einem Reiter in einen anderen Reiter schreibt.

So weit so gut. Die Werte sollen aber jeweils in prozentualer Abhängigkeit von einem festen Wert (in meinem Fall C8) berechnet werden. Zunächst in 10% Schritten bis 200%, dann in 100% Schritten bis 1000. Der prozentuale Wert soll immer in F19 eingesetzt werden, und dann soll die eigentliche Überschreibung von Reiter zu Reiter stattfinden. Ich habe keinerlei vba-erfahrung, habe mir aus dem Internet etwas zusammengebaut, komme aber aktuell nicht weiter…

Weiterhin soll dies nicht nur einem Fall, sondern für mehrere unternehmen stattfinden, das wäre die nächste schleife, da liegt aber zunächst keine Priorität daruf.

So sieht das bisher aus:

Sub Auswertung()

'Application.ScreenUpdating = False   

    Dim Spalten As Variant

    Dim Produktionssoll As Long

    Dim Prozent As Boolean

    Dim Gesamtlastprognose As Long

    Dim FitPV As Double

    Dim FitWind As Double

    Dim EVPV As Integer

    Dim EVWi As Integer

    Dim LabP As Integer

    Dim LabW As Integer

    Dim y As Double

    Dim i As Double

    Dim z As Double

    Dim k As Double

    Worksheets("Übersicht").Activate

    Produktionssoll = Range("F19").Value

    Gesamtlastprognose = Range("C8").Value

       'Lastgang wird als gegeben angenommen

    'F19=%*C8

z = 1

k = 6

Do

'aus den Hilfsdaten den Unternehmensnamen in Übersicht reinkopieren in abhängigkeit von z

'Sheets("Hilfsdaten").Range("A4").Copy Destination:=Sheets("Übersicht").Range("B3") 'kopiert ersten Lastgang

i = 0.1

y = 5

    While i <= 0.4

    ActiveSheet.Range("F19") = i * Gesamtlastprognose

    'Activate Button Namen des Buttons

    'ActiveSheet.Range("ProduktionssollWIND") = i * Gesamtlastprognose

    Sheets("Übersicht").Range("L28").Copy Destination:=Sheets("Auswertungen").Cells(k, y)

    Sheets("Übersicht").Range("L29").Copy Destination:=Sheets("Auswertungen").Cells(k + 1, y)

    'Sheets("Übersicht").Range("L28").Value =Sheets("Auswertungen").Cells(k, y).value

    'Sheets("Übersicht").Range("L29").Value =Sheets("Auswertungen").Cells(k + 1, y).value

  'MakroMarcin

    Sheets("Übersicht").Range("C6").Copy Destination:=Sheets("Auswertungen").Range("E3") 'kopiert Verbrauch

    Sheets("Übersicht").Range("C6").Copy

    Sheets("Auswertungen").Range("E3").PasteSpecial Paste:=xlValues 'Befehl kopiert Wert statt Formel

    'Sheets("Übersicht").Range("L29").Copy Destination:=Sheets("Auswertungen").Range("E4") 'kopiert Vollaststunden

    'Sheets("Übersicht").Range("L29").Copy Destination:=Sheets("Auswertungen").Range("E5") 'kopiert Strompreis

    Sheets("Hilfsdaten").Range("AC5").Copy Destination:=Sheets("Auswertungen").Range("E6") 'kopiert LA

    Sheets("Hilfsdaten").Range("AD5").Copy Destination:=Sheets("Auswertungen").Range("E7") 'kopiert EV

    Sheets("Auswertungen").Cells(10, 5).Value = 1000 'setzt spez. Solarertrag auf 1000

    Sheets("Übersicht").Range("C33").Copy Destination:=Sheets("Auswertungen").Range("E11") 'kopiert Fit Solar - funktioniert

    'ActiveSheet.Range(y, 47) = WINDEV

    'ActiveSheet.Range(y, 48) = WINDLA

    i = i + 0.1

    y = y + 1

    Wend

k = k + 2

z = z + 1

Loop Until z < 20

End Sub

Für Hilfe wäre ich sehr dankbar!!!