Datum

Titel

24.04.2024 08:01:34

Textbox Inhalt prüfen und Code abbrechen

24.04.2024 06:38:45

Kumulierte Daten für Intervalllaufeinheiten

24.04.2024 04:37:43

Mit Word erstellte PDF als Anhang an E-Mail anhängen

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

912to916

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Leider nochmal Spalte "Name?"

Forumthread: Leider nochmal Spalte "Name?"
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

02.10.2007 19:24:43

Walter

Hallo,
habe nochmal eine Frage:
Ich möchte gern den Spalten-Buchstaben ermitteln:
hiermit habe ich die Spaltenzahl
Dim sp
sp = ActiveCell.Column
MsgBox " Sie befinden sich in der Spalte: " & sp
mfg Walter MG

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

den Spaltenbuchstaben erhältst Du mit

02.10.2007 20:00:07

FP
Aber wie?

02.10.2007 20:05:32

Walter
AW: Aber wie?

02.10.2007 20:12:00

mumpel
DANKE -)

02.10.2007 20:15:00

Walter
Verkürzung (bis Excel 2003)

06.10.2007 00:54:00

NoNet
AW: Verkürzung (bis Excel 2007) ?

06.10.2007 11:50:00

Gerd

den Spaltenbuchstaben erhältst Du mit

02.10.2007 20:00:07

Hallo Walter,
dieser Funktion:


Public Function SPALTEB(Optional ByVal spalte As Integer) As String
If spalte = 0 Then spalte = ActiveCell.Column
SPALTEB = Application.Substitute(Cells(1, spalte).Address(0, 0), 1, "")
End Function

Wird kein Argument übergeben, gibt die Funktion den Buchstaben der Spalte der aktiven Zelle zurück.
Servus aus dem Salzkammergut
Franz

Aber wie?

02.10.2007 20:05:32

Walter

Hallo Franz,
wie kann ich dies in mein Makro einbinden:


Private Sub CommandButton4_Click()
Dim sp
sp = ActiveCell.Columns
MsgBox " Sie befinden sich in der Spalte:   " & sp
End Sub

mfg Walter MG

AW: Aber wie?

02.10.2007 20:12:00

mumpel

Hallo!
Das ist ganz einfach. Die benutzerdefinierte Funktion in ein Standardmodul. Deine Prozedur durch diese ersetzen.


Private Sub CommandButton4_Click()
MsgBox " Sie befinden sich in der Spalte:   " & SPALTEB
End Sub

Gruß, Rene

DANKE -)

02.10.2007 20:15:00

Walter

Hallo Rene,
danke funktioniert einwandfrei, das wollte ich !!!
mfg Walter MG

Verkürzung (bis Excel 2003)

06.10.2007 00:54:00

NoNet

Hallo Franz,
bis Excel 2003 funktioniert auch folgende Verkürzung :
SPALTEB = Replace(Left(Columns(spalte).Address(0, 0), 2), ":", "")
Ab XL2007 gibt es ja 16384 Spalten (bis Spalte XFD), da stimmt dann die "2" nicht mehr ;-)
Gruß, NoNet

AW: Verkürzung (bis Excel 2007) ?

06.10.2007 11:50:00

Gerd

Hallo NoNet,
geht dies noch in xl2007 ?
Msgbox Split(Columns(16000).Address, "$")(2)
Gruß Gerd