Excel und VBA: Formeln, Programmierung, Lösungen

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