Guten Tag zusammen,
ich hab ein kleines Problem mit meine Code, er macht nicht ganz das was ich will :D.
So wir der Code da steht läuft er schon ganz gut nur mein Problem ist das der Inhalt für die Variable va1 und va2 nicht so übernommen wird wie ich will in die Formel summewenn.
Ich möchte das der Inhalt aus der Variable als Kriterium für die Formelübernommen wird nur ist mein Problem folgendes das in der Cells(a, 7) steht der inhalt B001 daraus macht Excel B1 und verweist somit auf die Zelle B1 in meiner Formel das möchte ich aber nicht :D ich möchte das B001 steht als Text quasi. Oder das auf die echte zeile verwiesn wird also G3.
hab schon viel versucht aber noch keine Lösung gefunden hoffe Ihr könnt mir weiter helfen.
Gruß Marc
Dim a As Integer
Dim va1 As Variant
Dim va2 As Variant
Dim letzteZeile As Integer
a = 3
va1 = Cells(a, 7).Value
va2 = Cells(a, 9).Value
letzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
'Do Until Cells(a, 7) = ""
If Cells(a, 7) = va1 And Cells(a, 9) = va2 Then
Range("AM3").FormulaLocal = "=SUMMEWENNS(S3:S" & letzteZeile & ";G3:G" & letzteZeile & ";" & va1 & ";I3:I" & letzteZeile & ";" & va2 & ")"
'a = a + 1
Else
'a = a + 1
End If
'Loop
|