Makro läuft nicht
14.06.2016 15:43:48
lau
Hary und Uwe aus dem Forum hier haben mir bei dem unteren Makro geholfen, aber irgendwie läuft jetzt nicht mehr und ich kann den Fehler nicht dentifizieren.
Als Ergebnis bekomme ich immer Deltaposition von "0 MWh", obwohl die Summe einen grossen Wert für den 13.6 anzeigen müsste.
Hat jmd. eine Idee, woran es liegen könnte?
Sub Deltaposition()
Dim Datum As Date
Dim Summe
Columns(3).Replace What:=" **:**:**", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Datum = InputBox("Datum für gewünschte Deltaposition angeben:", "Filterdatum", Date)
Summe = WorksheetFunction.SumIf(Columns(3), Datum, Columns(218))
Summe = Format(Summe, "#,##0") & " MWh "
MsgBox ("Deltaposition am " & Datum & ":" & vbLf & vbLf & Summe)
Range("Hc1") = Summe
End Sub
Anzeige