Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SUMMEWENN - Argumente aus VBA-Ranges ableiten

SUMMEWENN - Argumente aus VBA-Ranges ableiten
25.10.2012 16:21:44
Peter
Guten Abend
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SUMMEWENN - Argumente aus VBA-Ranges ableiten
25.10.2012 16:56:13
Rudi
Hallo,
strAAAA = "'" & shEins.Name & "'!" & rAAAA.Address(, , xlR1C1)
strBBBB = "'" & shEins.Name & "'!" & rBBBB.Address(, , xlR1C1)
With rDDDD
.FormulaR1C1 = "=SUMIF(" & strAAAA & ", RC[" & rCCCC.Column - rDDDD.Column & "]," & strBBBB & ") _

Gruß
Rudi

AW: SUMMEWENN - Argumente aus VBA-Ranges ableiten
25.10.2012 17:08:18
Peter
Hallo Rudi
Ich danke dir vielmals.
Gruss, Peter
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige