Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zelleinträgen über die Formatierung Spaltennamen hinzufügen

Gruppe

Name

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