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!!!
|