Guten Tag,
ich bins mal wieder und komm mal wieder nicht weiter.
Hoffe, jemand hat eine Idee.

Ich möchte per vba eine Variable (nm) definieren und den Wert dieser Variablen in einer Excel Wenn-Formel als Wert übergeben. Also anstatt wie

bisher
"=WENN(ODER(B8=""GAA""

soll
"=WENN(ODER(B [Variable nm]=""GAA"".....

eingetragen werden.

Sub Namen_per_VBA_Definieren()
' Neuen Namen erzeugen und Wert zuweisen

Dim nm As Name
Dim wb As Workbook
Dim ws As Worksheet
Dim zeileB As Long

Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)
For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
zeile = i
Set nm = ws.Names.Add(Name:="LetzteZeile", RefersTo:="=" & CStr(zeile))
If Cells(i, 1) = "Q5300" Then
'mach was
'MsgBox "ok"
Cells(i, 11).FormulaLocal = "=WENN(ODER(""GAA"";B8=""CRS"";B8=""GAK"";B8=""CRK"");SUMME(SVERWEIS(C8;TransSIMON_Jahreswert!$A$6:$B1000;2;);SVERWEIS(C8;TransSIMON_Jahreswert!$A$6:$C1000;3;));""kein Cash Gerät"")"
'Exit For
Else
Cells(i, 11).FormulaLocal = "=WENN(ODER(""GAA"";B8=""CRS"";B8=""GAK"";B8=""CRK"");SUMME(SVERWEIS(C8;Verfuegungen_GZ_KRU!$A$2:$K1000;8;);SVERWEIS(C8;Verfuegungen_GZ_KRU!$A$2:$K1000;9;));""kein Cash Gerät"")"
End If
Next i

End Sub



Grüße
günther