Gruppe
Allgemein
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.
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