Thema: Zelleinträgen über die Formatierung Spaltennamen hinzufügen

Home

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.

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

Zeilen "Objekt,Name,Name,..." in Paare wandeln	Vba: refersToR1C1 Namen erzeugen
Spaltenname einer intelligenten Tabelle ändern?	Namensliste 2 mit Formeln ableiten
Datei löschen mit unterschiedlichen Zahlen im Name	Datei löschen mit unterschiedlichen Zhalen im Name
Anzeigename aus Outlook-Verteilerliste auslesen	Zellen auslesen,wenn im Blattnamen 2019
Datei öffnen mit variablen im Namen	Checkboxen Namen beliebig in eine Zelle schreiben
Namens-Manager	Formel in definierten Namen unabhängig von Tabelle
Namen der Tabellen kopieren	Wert einer Zelle in Blatt mit diesem Zellennamen
Formen in UserForm Namen zuweisen per Makro	Namen - Bezüge auf versch. Blätter
Dateinamen per VBA vorgeben (Datum: Vormonat)	Zugriff auf Pfad bei "name"
Dateinamen der ausgelesenen Datei anzeigen	Namen in Zelle Drehen, dabei ÄÖÜß erstet
Namen definieren für bestimmten Bereich	Namen zu E- Mail Adresse umwandeln!
Spaltennamen vergeben	tabellenname in variable
dynamische Namen auf Tabellenblätter beziehen	Bei Doppelklick ZellName in A1
Überprüfen ob Datei/Dateiname schon vorhanden	Absturz bei lokalen Bereichsnamen
ohne Vornamen sortieren	Dateiname in Zelle
Datei auswählen und Namen auslesen	Zell-Name in Sverweis möglich?
Dateiname in Zelle	Dateinamen temporär ändern
Modul: Dateiname automatisch generieren	Excel 2007 speichern unter mir Dateinamen
Name definieren	Dateinamen auslesen
Name eine benannten Bereiches finden	getopenfilename mit Teil der Dateiname
Arbeitsblattname in Zelle anzeigen	Dateiname externer Datei ändern
Tabellenblattname autom. in Zelle schreiben.	Variablenname dynamisch zusammensetzen
Name eines Zeichenelements auslesen	Blattregistername in UserformLabel
Windows.Activate: Name mit Leerzeichen = Fehler	Dateiname auslesen, Datei öffnen, zurück wechseln
Namen definiert- in Ereignis verwenden?	SeriesCollection.Name macht Probleme