Kann mir jemand sagen, wo der Wurm drinsteckt? Ich versuche mit allen möglichen Techniken zu verhindern, dass das Tabellenblatt "Alle Werte" für einen bruchteil einer Sekunde sichtbar wird, bevor das Tabellenblatt "Erfassung VR" aktiviert wird.
Was mache ich falsch? Hier mein Code...
Sub Indikatoren_erfassen_VR()
ScreenUpdating = False
Sheets("Alle Werte").Select
Range("A10").Select
ActiveCell.FormulaR1C1 = "=YEAR(TODAY())"
Application.CutCopyMode = False
Range("A9:A10").Select
Selection.Copy
Range("A9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ScreenUpdating = True
Sheets("Erfassung VR").Select
Range("C2").Select
End Sub
Danke im Voraus,
Kurt