VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelleinträgen über die Formatierung Spaltennamen hinzufügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Name