Gruppe
Allgemein
Bereich
Name
Thema
Zelleinträgen über die Formatierung Spaltennamen hinzufügen
Problem
Der Bereich A1:C2 soll mit dem Spaltennamen, gefolgt von einem Doppelpunkt formatiert werden. Auf erneuten Schaltflächendruck soll die Formatierung wieder zurückgesetzt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub WithColumnChar()
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.Cells
If rng.NumberFormat = "0" Then
rng.NumberFormat = """""" & _
Chr(rng.Column + 64) & """:""0"
Else
rng.NumberFormat = "0"
End If
Next rng
End Sub