Danke für die Mühe :top:
Allerdings springt der Debugger an mit
"END Sub erwartet" zwischen
. Dim AktuellerWert As String
<<< Hier >>>
. Sub Test()
"das mit der ausgebl. arbeitsmappe habe ich jetzt nicht verstanden"
- - dito, weil die Arbeitsmappe offen ist und der Button sich in selbiger befindet