Excel -Swap -Referenzstil zwischen R1C1 und A1

 Sub ChangeCellRef()
 If Application.ReferenceStyle = xlA1 Then
 Application.ReferenceStyle = xlR1C1
 Else
 Application.ReferenceStyle = xlA1
 End If
 End Sub
Sleepy Starling