Excel VBA Formula mit Variabeln
06.07.2017 09:42:05
Nik
habe ein kleines Problem: Ich möchte folgende VBA Formel unter eine Tabelle setzen.
=SUMMEWENNS(P2:P151;$A$2:$A$151;"GME ASM")
Das Problem bereitet mir der jedoch Suchbegriff "GME ASM" in der VBA Formel, da dieser in Anführungszeichen steht. Irgendwie bekomme ich das nicht hin.
Auch wenn ich es per Variabel vorher festlege als X = """GME AS""" oder es mit Char(34) vorher und nach dem "GME ASM" definiere.
Habe schon etliche Varianten probiert. Vielleicht kann mir jemand die Richtung weisen oder mich auf meinen Fehler hinweisen.
Bin für alle Hinweise dankbar!
https://www.herber.de/bbs/user/114717.xlsb
Hie der Code:
Sub TEST()
Dim c As Range
Dim a As Range
Dim e As Range
Dim aa As Range
Dim ee As Range
Dim x As String
letzteZeile = Selection.CurrentRegion.Rows.Count
Set a = ActiveSheet.Cells(Rows.Count, 15).End(xlUp).End(xlUp).Offset(1, 1)
Set e = ActiveSheet.Cells(Rows.Count, 15).End(xlUp).Offset(0, 1)
Set aa = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).End(xlUp).Offset(1, 0)
Set ee = ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
Set c = ActiveSheet.Cells(Rows.Count, 15).End(xlUp)
x = Chr(34) & "GME ASM" & Chr(34)
With c
.Offset(3, 0).Value = "Total GME"
.Offset(3, 1).NumberFormat = "0_ ;[Red]-0 "
.Offset(3, 1).Formula = "=SUMMEWENNS(" & a.Address(0, 0) & ":" & e.Address(0, 0) _
& ";" & aa.Address(1, 1) & ":" & ee.Address(1, 1) & ";" & x & ")"
End With
End Sub
Gruß
Nik