Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
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

Anzeige
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

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

252 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Zahl in Uhrzeit umwandeln
Bernd

Hallo,
ein frohes neues Jahr.
Ich habe z.B. in A1 die Zahl 58 stehen.
Nun möchte ich, dass in B1 ebenfalls die 58 dargestellt wird. Nun aber nicht mehr als Zahl, sondern als Stunden.
Kann mir da bitte einer helfen.
Lieben Dank
Gruß Bernd
01.01.2010 14:17:36
Thread-ID: 1126624
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
21
15
3
2
4
1
9
7
6
2
2
5
2
6
23
4
5
2
3
2
15
1
9