Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.09.2025 18:32:19
Summewenn nach Anzahl der Vorkomnisse
30.09.2025 14:57:32
Werte aus einem Vergleich von zwei spalten in dritte Spalte
30.09.2025 13:37:26
als Text gespeicherte Zahlen
30.09.2025 13:15:11
Funktion =ARBEITSTAG.INTL
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buchstabencode der Spalte in VBA ermitteln

Forumthread: Buchstabencode der Spalte in VBA ermitteln

Buchstabencode der Spalte in VBA ermitteln
12.06.2017 14:52:27
guenni
Hallo Excel Profis,
Folgendes Problem kann man meistens mit einem RC-Bezug umgehen, in meinem konkreten Fall müsste ich jedoch unverhältnismäßig viel damit verbundenen Code ändern.
Benötige für die Formelbildung in VBA den Buchstabencode einer Spalte.
was ich habe, ist ein Range-objekt mit der ganzen Spalte, und damit die Spaltennummer.
wie komme ich zur Buchstabenkombination statt der Nummer?
Set Sp = Cells(1, 0815).EntireColumn
SpaltNummer=Sp.Column
SpaltBuchstabenkombi=? ' Sollte "AEI" ergeben

Danke,
Günther
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 14:56:05
dirk
Hallo!
Kann man über eine Funktion realisieren (´hab ich mal irgendwo gefunden, weiss aber nicht mehr wo).
Public Function spaltenbuchstabe(spaltenzahl As Integer) As String
spaltenbuchstabe = Split(Cells(1, spaltenzahl).Address, "$")(1)
End Function

Gruss
Dirk aus Dubai
Anzeige
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 15:09:59
mmat
nicht sehr elegant, aber ergibt AEI
Function Dez2x26(ByVal d As Integer) As String
Dim s As String, n As Integer
s = "": n = 0
If (d > 702) Then While (d > 676): d = d - 676: n = n + 1: Wend: If (n > 0) Then s = s + Chr( _
n + 64)
n = 0
While (d > 26): d = d - 26: n = n + 1: Wend: If (n > 0) Then s = s + Chr(n + 64) 'das Ding  _
hat maximal 2 stellen
Dez2x26 = s + Chr(d + 64)
End Function

Anzeige
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 15:41:58
mmat
Hallo allerseits,
ich will ja nicht behaupten, das die vorgestellten Lösungen die auf der .address Eigenschaft eines Range-Objekts basieren nicht praktikabel sind. Diese funktionieren allerdings nur, wenn gerade eine Tabelle geöffnet ist, und da es um die Spalte 815 geht, muss es eine im neuen Format (ab 2007) sein.
Daher verwende ich lieber eine Funktion.
vg
Anzeige
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 16:39:21
guenni
Danke klappt super!
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 15:14:56
yummi
Hallo Günther,

Function WandleZahlInBuchstaben(ByVal iWert As Integer) As String
Dim Spaltenbuchstabe As String
Spaltenbuchstabe = Right(Columns(iWert).Address, Len(Columns(iWert).Address) - InStrRev( _
Columns(iWert).Address, "$"))
WandleZahlInBuchstaben = Spaltenbuchstabe
End Function
Gruß
yummi
Anzeige
Functions sind voll überflüssig...
12.06.2017 15:18:26
EtoPHG
Hallo,
Es genügt doch wirklich 
SpaltBuchstabenKombi = Split(Cells(1, SpaltNummer).Address,"$")(1)

Warum sollte die Split-Funktion nochmals in eine Function gepackt werden?
Gruess Hansueli
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 15:20:23
JoWE
Hallo Günther,
so vllt.:
Set Sp = Cells(1, 815).EntireColumn
Spaltnummer = Sp.Column
SpaltBuchstabenkombi = Split(Cells(Spaltnummer, 815).Address, "$")(1) ' Sollte "AEI" ergeben
MsgBox SpaltBuchstabenkombi
End Sub
Gruß
Jochen
Anzeige
AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 15:22:56
JoWE
sorry
Blödsinn beim koieren, so aber: 

Set Sp = Cells(1, 815).EntireColumn
Spaltnummer = Sp.Column
SpaltBuchstabenkombi = Split(Cells(1, Spaltnummer).Address, "$")(1) ' Sollte "AEI" ergeben
MsgBox SpaltBuchstabenkombi

AW: Buchstabencode der Spalte in VBA ermitteln
12.06.2017 17:54:20
snb 

Sub M_snb()
MsgBox Replace([address(1,815,4)], "1", "")
End Sub

Anzeige
Danke
12.06.2017 16:49:56
guenni
Danke für die vielen Antworten.
Bin ja schon mit Nr 1 weitergekommen, konnte aber nicht so schnell rückmelden
viele Grüße
Günther
Anzeige
;

Forumthreads zu verwandten Themen

Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Spaltennummer statt Spaltenbuchstabe
Werner

VBA-Level: befriedigend
Hallo Freunde,
in einer Tabelle sind für die Spalten Namen vergeben. Eine Spaltennummer kann ich dann wie folgt
angeben (WsTabelle is der als Objektvariable definierte Tabellenname):
WsTabelle.Range("Spaltenname").Column
Wenn ich jetzt, z.B. für...
10.04.2009 11:36:27
Thread-ID: 1068172
4 Beiträge
Spaltenbuchstaben in zahlen wandeln
Tobiax

Guten Morgen!
Ich gebe die var Spalte als zahl vor und möchte dann in die z.b. 25.Spalte (das wäre dann Y) gehen und dort in die Zeile 3 auswählen
Range( Spalte & "3").Select klappt ja nicht.
Wie kann ich das konvertieren ?
Toby...
13.05.2009 08:21:56
Thread-ID: 1074706
3 Beiträge
GROSSBUCHSTABEN in kleinbuchstaben umwandeln
marbet

Hallo,
kann mir jdm sagen, wir ich eine Tabelle, die in lauter Großbuchstaben geschreiben ist in kleine ändern kann?
Die Funktion =klein(Text) funktioniert leider nicht....
Vielen Dank!
09.06.2009 11:13:41
Thread-ID: 1080092
5 Beiträge
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
2 Spalte in ComboBox anzeigen
ray

Hallo,
ich hab grad das Archiv durchsucht und kann mein Problem leider nciht lösen:
Ich möchte mit nachstehenden Code (aus diesem Forum) nicht nur Spalte 8 sondern Spalte 1 und 8 anzeigen lassen. Hab schon rumprobiert, aber nix geht...
'#### ComboBox mit ALLEN Mänglen füllen START...
07.09.2009 09:35:21
Thread-ID: 1100952
10 Beiträge
spalte A und B in userform-textbox1 anzeigen
peter

hallo excels,
ich möchte aus einem tabellenblatt alle einträge aus spalte a un b bei öffnen der userform einlesen lassen.
mein versuch funktioniert leider nicht.

gruss peter
17.04.2002 09:40:16
Thread-ID: 113968
3 Beiträge
max ermitteln, und wert n-spalten links ausgeben
DC

Hi,
ich habe eine Tabelle in der in A1:C1 Ortsnamen stehen: München Hamburg und Frankfurt.
In D1:F1 stehen km-Angaben: 100 200 300 km.
In Zelle G1 ermittle ich über max(D1:F1) die weiteste Entfernung. Nun möchte ich in H1 von F1 (=max) den dazugehörigen Wert 3 Spalten weiter links...
28.01.2010 15:54:40
Thread-ID: 1133847
3 Beiträge
Spalteninhalt in anderer abh. von Zelle anzeigen
Zelle

Sorry if der Titel irreführend ist,
Sagen wir, ich hätte folgende Tabelle
| A| B |C
1 |23| Hans |12
2 |12| Peter |34
3 |34| Fritz |23
A und B gehören zusammen.
Abhängig davon, was in C steht, möchte ich daneb...
10.02.2010 11:33:04
Thread-ID: 1137331
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Buchstabencode der Spalte in VBA ermitteln

Schritt-für-Schritt-Anleitung

Um den Buchstabencode einer Spalte in VBA zu ermitteln, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel (Alt + F11).

  2. Erstelle ein neues Modul (Rechtsklick auf "VBAProject" > Einfügen > Modul).

  3. Füge den folgenden Code ein:

    Public Function Spaltenbuchstabe(spaltenzahl As Integer) As String
   Spaltenbuchstabe = Split(Cells(1, spaltenzahl).Address, "$")(1)
End Function

  4. Verwende die Funktion, um die Spaltennummer in den entsprechenden Buchstabencode umzuwandeln. Zum Beispiel:

    Sub Test()
   Dim SpaltenNummer As Integer
   SpaltenNummer = 815
   MsgBox Spaltenbuchstabe(SpaltenNummer) ' Gibt "AEI" aus
End Sub

  5. Führe das Makro aus, um den Buchstabencode der gewählten Spalte zu erhalten.

Häufige Fehler und Lösungen

  • Fehler: "Typ-Fehler"
    Stelle sicher, dass die Spaltennummer als Integer übergeben wird. Eine nicht numerische Eingabe führt zu einem Typ-Fehler.

  • Fehler: "Falsches Ergebnis"
    Überprüfe, dass Du die richtige Spaltennummer übergibst. In Excel 2007 und neuer können Spalten über 26 Buchstaben hinausgehen (z.B. "AA", "AB", etc.).

Alternative Methoden

Es gibt verschiedene Möglichkeiten, die Spaltennummer in einen Buchstabencode umzuwandeln:

  1. Verwendung der Excel-Funktion Address:

    Dim SpaltenBuchstabe As String
SpaltenBuchstabe = Split(Cells(1, 815).Address, "$")(1) ' Gibt "AEI" aus

  2. Direkte Umwandlung:

    Function ZahlInBuchstaben(ByVal nummer As Integer) As String
   Dim buchstaben As String
   buchstaben = ""
   Do While nummer > 0
       nummer = nummer - 1
       buchstaben = Chr(65 + (nummer Mod 26)) & buchstaben
       nummer = nummer \ 26
   Loop
   ZahlInBuchstaben = buchstaben
End Function

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die Buchstabencodes in VBA verwenden kannst:

  • Umwandlung einer Spaltennummer in einen Buchstabencode:

    Sub Beispiel()
   Dim spaltenNummer As Integer
   spaltenNummer = 27 ' Beispiel: Spalte AA
   MsgBox Spaltenbuchstabe(spaltenNummer) ' Gibt "AA" aus
End Sub

  • Aktuelle Spalte als Buchstaben ausgeben:

    Sub AktuelleSpalte()
   Dim aktuelleSpalte As String
   aktuelleSpalte = Spaltenbuchstabe(ActiveCell.Column)
   MsgBox "Aktuelle Spalte: " & aktuelleSpalte
End Sub

Tipps für Profis

  • Verwende die Application.ConvertFormula Methode, um Formeln einfacher zu konvertieren und die Spaltenbuchstaben zu ermitteln.
  • Optimiere Deinen Code: Wenn Du oft die Spaltenbuchstaben benötigst, erstelle eine Utility-Funktion, die Du überall in Deinem VBA-Projekt aufrufen kannst.
  • Nutze die Address-Eigenschaft für eine schnelle und einfache Lösung, aber sei vorsichtig, da sie von der geöffneten Tabelle abhängt.

FAQ: Häufige Fragen

1. Wie kann ich die Buchstabencodes für mehrere Spalten in einer Schleife ausgeben?
Du kannst eine Schleife verwenden, um die Spaltennummern durchzulaufen und die Buchstabencodes auszugeben:

Sub AlleSpaltenBuchstaben()
    Dim i As Integer
    For i = 1 To 26 ' Beispiel für die ersten 26 Spalten
        MsgBox Spaltenbuchstabe(i)
    Next i
End Sub

2. Was ist der Unterschied zwischen Cells und Columns in VBA?
Cells bezieht sich auf eine bestimmte Zelle, während Columns sich auf die gesamte Spalte bezieht. Wenn Du nur den Buchstabencode benötigst, kannst Du beide verwenden, aber Columns ist bei der Buchstabenausgabe oft einfacher.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige