spaltenangabe in buchstaben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 97/2000
nach unten

Betrifft: spaltenangabe in buchstaben
von: peter
Geschrieben am: 03.05.2002 - 09:41:26

hallo excels,
habe folgendes macro in diesem forum gefunden,angepasst und als add-inn gespeichert.klappt auch super.
bei abfrage nach der spalte möchte ich aber den spaltenBUCHSTABEN abfragen.bei mir klappt das nur mit der spaltenzahl.
sieht da jemand eine lösung?

gruss
peter
nach oben   nach unten

Re: spaltenangabe in buchstaben
von: Tobi@s
Geschrieben am: 03.05.2002 - 09:48:06

Hallo,
wandel doch den Buchstaben in eine Zahl um mit ddem Befehl
SpZahl = Asc(Spbuchstabe) - 64 'variablen natürlich anpassen
(A = 65, B = 66,...)

nach oben   nach unten

Re: spaltenangabe in buchstaben
von: Hans W. Herber
Geschrieben am: 03.05.2002 - 09:51:29

Hallo Peter,

Excel versteht bei einer Cells-Adressierung die Spaltennummern wie auch die Spaltenbuchstaben. Teste folgenden Code:

Der Ordnung halber sollte allerdings umgewandelt werden.

hans

nach oben   nach unten

Re: spaltenangabe in buchstaben
von: WernerB.
Geschrieben am: 03.05.2002 - 09:57:38

Hallo Peter,

dieses kleine Makro liefert Dir aus einer Zelladresse u.a. auch den/die Spaltenbuchstaben. Vielleicht kannst Du ja damit etwas anfangen:

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

Re: spaltenangabe in buchstaben
von: ajk
Geschrieben am: 03.05.2002 - 10:05:46

Hallo,
probier doch mal:

Sub spalten()
Dim spalte
Dim spaltenwahl

spalte = Application.InputBox("Spalte", "Benutzer: " & Application.UserName, "A", , , , 2)
If spalte = False Then
Exit Sub
End If
If Asc(spalte) <= 90 And Asc(spalte) >= 65 Then
spaltenwahl = Asc(spalte) - 64
Columns(spaltenwahl).Select
ElseIf Asc(spalte) <= 122 And Asc(spalte) >= 97 Then
spaltenwahl = Asc(spalte) - 96
Columns(spaltenwahl).Select
Else
Beep
MsgBox "Bitte nur A-Z nutzen!", vbCritical, "Benutzer: " & Application.UserName
Call spalten
End If
MsgBox spalte & ":" & spaltenwahl
End Sub

Gruß
AJK

nach oben   nach unten

vielen dank euch allen werde alle varianten testen
von: peter
Geschrieben am: 03.05.2002 - 10:21:25

danke
gruss
peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "spaltenangabe in buchstaben"