Moin,
ich würde gerne aus einer Excelliste die Gebühren einer Abrechnungsperiode errechnen. Diese Gebühren sind in Spalte E vorzufinden, wie die Produktpreise auch. Die Gebühren werden jedoch teils durch Excel als Datum angezeigt, weshalb ich es mittels einer Formel geschafft habe, die verschiedenen Werte aus den verschiedenen Datumsanzeigen wiederherzustellen. Außerdem steht in Spalte K die jeweilige Klassifizierung der Beträge, so dass 1 für Verkäufe steht und 2-4 für verschiedene Gebühren. Anhand dessen wollte ich mittels des Makrorekorders meine Formel anwenden, die Werte als Zahlen anzeigen und die Summe der vers. Gebühren als einen Betrag anzeigen lassen. Doch wenn ich das Makro anwenden möchte gibt Excel bloß eine Null aus.
Vielen Dank schonmal
Sub 1 ()
Range("O2").Select
ActiveCell.Formula2R1C1 = _
"=IF(CELL(""FORMAT"",RC[-10])=""S"",RC[-10],IF(CELL(""FORMAT"",RC[-10])=""D2"",IF(MONTH(RC[-10])>9,VALUE(DAY(RC[-10])&"",""&MONTH(RC[-10])),VALUE(DAY(RC[-10])&"",0""&MONTH(RC[-10]))),IF(CELL(""FORMAT"",RC[-10])=""D3"",VALUE((MONTH(RC[-10])&"",""&RIGHT(YEAR(RC[-10]),2))))))"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O292"), Type:=xlFillDefault
Range("O2:O292").Select
Selection.Copy
Range("P2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Range("Q2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUMIF(RC[-6]:R[498]C[-6],"">1"",RC[-1]:R[498]C[-1])"
Range("Q2").Select
Selection.Copy
Range("R2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("O:Q").Select
Range("Q1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
End Sub
|