Modul kann nicht kompiliert werden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anfängerin13,
probiere es mal so:


Private Sub populateLevels(myRange As Range, dateToFind As Date, _
TimestampCol, DemandCol, availableCapacityCol, _
ResidualOptimizationCol, generatedMWhCol, HydroInputCol)
Dim rg As Range
Dim r1 As Long, r2 As Long
Dim mySheet As Worksheet, wsX As Worksheet
Dim myMin As Single
Set rg = myRange.Find(dateToFind)
If Not rg Is Nothing Then
'nur wenn Datum auch gefunden wurde
r1 = rg.row
Set mySheet = rg.Parent
'oder
'Set mySheet = myRange.Parent
'unbedingt den Select-Befehl vermeinden, statt dessen über eine
'Objektvariable das Minimum bestimmen
Set wsX = ThisWorkbook.Worksheets("DATA")
For r2 = 3 To 8790
'With erspart Schreibarbeit - aber achte auf die beginnenden Punte vor .Cells
With mySheet
'in Deiner Version ist Range/Cells doppelt-gemoppelt
If .Cells(r2, 10).Value

Hinweis: Die vba-Suche nach einem Datum, wenn es stark formatiert wurde, geht bei mir ab Excel 2010/13 öfters in die Hose. Deshalb könnte
Set rg = myRange.Find(dateToFind) aber auch Deine Such-Version ins Leere laufen und bei Dir auch noch einen Fehler werfen. Sollte das der Fall sein, unbedingt noch mal melden.
Gruß von Luschi
aus klein-Paris

Private Function findHighestPriceDate(DemandPrice As Range, HydroInputCol As Integer, _ TimestampCol As Integer, startR As Long, endR As Long) As Date Dim HighestPrice As Single Dim HPRow As Long Dim thisSheet As Worksheet Dim r As Long Dim c As Long HighestPrice = 0 Set thisSheet = DemandPrice.Worksheet c = DemandPrice.Column For r = DemandPrice.row To DemandPrice.row + DemandPrice.Rows.Count - 1 If thisSheet.Cells(r, c) > HighestPrice And thisSheet.Cells(r, HydroInputCol) = "" Then HighestPrice = thisSheet.Cells(r, c) HPRow = r End If Next r ('ist jetzt 8791 weshalb der Debug angeht) findHighestPriceDate = thisSheet.Cells(HPRow, TimestampCol) End Function

Also es geht im Grunde darum in meiner Excel, dass ich versuche ein Wasserkraftwerk zu modellieren. Für jede Stunde im Jahr habe ich Nachfragemengen und Preise modelliert und darauf basierend soll ökonomisch, dann wenn Nachfrage und Preis am Höchsten sind, das Wasser aus dem Staudamm entlassen werden.
Daher sucht er den höchsten Preis und fügt dann, wenn die Zelle leer ist und die optimierbare Menge auch überhaupt der Kapazität entspricht, die generierte Menge ein.
(Else
myMin = WorksheetFunction.Min(wsX.Cells(r1, DemandCol).Value, wsX.Cells(r1, availableCapacityCol).Value, wsX.Cells(r1, ResidualOptimizationCol).Value)
.Cells(r1, generatedMWhCol).Value = myMin
.Cells(r1, HydroInputCol).Value = myMin)
Alles super jetzt also und ich bin dir endlos dankbar!
Nun wenn die Optimierung läuft, fügt er genau in der ausgewählten Stunde die Menge ein und dann gehts wie vorher wieder mit lauter Nullen weiter bis ein nächster hoher Preis gefunden wird.
Kann man um es realistischer machen, einfügen, dass wenn eine Zelle in Zeile (zb.) 4500 gefüllt wird, sagen, dass die Zeile davor und Zeile danach ebenfalls ansteigend und abfallend gefüllt werden müssen, um zu simulieren, dass so ein Kraftwerk wahrscheinlich nicht nur in dieser einen Stunde läuft.

Beliebteste Forumthreads (12 Monate)

Modul kann nicht kompiliert werden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Modul kann nicht kompiliert werden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread