SUMMEWENN - Argumente aus VBA-Ranges ableiten
25.10.2012 16:21:44
Peter
Ich möchte eine SUMMEWENN-Formel eintragen und dabei das Argument 1 und das Argument 3 von je einem definierten VBA-Range ableiten.
Wie kann ich in meine Codezeile (vgl. unten)
.FormulaR1C1 = "=SUMIF(Tabelle1!R5C1:R13C1, RC[" & rCCCC.Column - rDDDD.Column & "],Tabelle1!R5C2:R13C2)"
die Argumente 1 und 3 von Range rAAAA und rBBBB ableiten.
Oder anders gefragt: wie kann ich von rAAAA am einfachsten den String "Tabelle1!R5C1:R13C1" resp. von rBBBB den String
"Tabelle1!R5C2:R13C2" ableiten?
Gruss, Peter
Sub Formeln_einsetzen()
Dim rAAAA As Range, rBBBB As Range, rCCCC As Range, rDDDD As Range
Dim aBook As Workbook, shEins As Worksheet, shZwei As Worksheet
Set aBook = ThisWorkbook
Set shEins = aBook.Sheets("Tabelle1")
Set shZwei = aBook.Sheets("Tabelle2")
With shEins
Set rAAAA = .Range(.Cells(5, Range("AAAA").Column), .Cells(13, Range("AAAA").Column))
Set rBBBB = .Range(.Cells(5, Range("BBBB").Column), .Cells(13, Range("BBBB").Column))
End With
With shZwei
Set rCCCC = .Range(.Cells(5, Range("CCCC").Column), .Cells(13, Range("CCCC").Column))
Set rDDDD = .Range(.Cells(5, Range("DDDD").Column), .Cells(13, Range("DDDD").Column))
End With
With rDDDD
.FormulaR1C1 = "=SUMIF(Tabelle1!R5C1:R13C1, RC[" & rCCCC.Column - rDDDD.Column & "],Tabelle1! _
R5C2:R13C2)"
''''Formel ableiten von (Argument 1 resp. Argument 2)
'''Tabelle1!R5C1:R13C1 = rAAAA und
''',Tabelle1!R5C2:R13C2 = rBBBB
.NumberFormat = "#,##0.00;-#,##0.00;"
End With
End Sub
https://www.herber.de/bbs/user/82317.xlsm