Zahl einem Namen zuweisen
13.06.2017 10:45:54
Peter
Der Name Wert soll entweder 0 oder 1 enthalten.
Gibt es eine Möglichkeit das Switchen zwischen diesen beiden Werten einfacher zugestalten?
Kann man die Variable so anfragen, dass das "=" vor der Zahl nicht notwendig ist?
Wenn ich den Namen im Namens-Manager betrachte, steht bei "Wert" 0 oder 1, und nur bei "Bezieht sich auf "=0" oder "=1"
Sub xxx()
If NameExists("Wert") = False Then
ActiveWorkbook.Names.Add Name:="Wert", RefersTo:=2
End If
If ThisWorkbook.Names("Wert").value = "=1" Then
ThisWorkbook.Names("Wert").value = "=0"
Else
ThisWorkbook.Names("Wert").value = "=1"
End If
End Sub
Public Function NameExists(TheName As String) As Boolean
On Error Resume Next
NameExists = Len(ThisWorkbook.Names(TheName).Name) 0
End Function
Danke und Gruss, Peter