VBA-Beispiel 117
mail schreiben
mail schreiben

Bezugsart - Spaltenbeschriftung wechseln

Beim Programmieren wechsel ich öfter mal die Spaltenbeschriftung Buchstaben/Zahlen.
Dabei ist der Mausweg über Extras/Optionen/Register Allgemein und Z1S1-Bezugsart ziemlich lang und umständlich.

Stattdessen packt man sich besser dieses Makro in die persönliche Arbeitsmappe (PERONL.XLS) und weist ihm über Extras-Makro-Makros-Optionen eine Tastenkombination zu (z.B.: Strg + m).
Public Sub Spaltenbeschriftung()
'Spaltenbeschriftung wechseln
'über Tastatur: Strg + m

With Application
 'wenn Buchstaben dann Zahlen
  If .ReferenceStyle = xlA1 Then
    .ReferenceStyle = xlR1C1
  Else
   'sonst Buchstaben
    .ReferenceStyle = xlA1
  End If
End With

End Sub

Download:   vba117.zip