Vorherhiger Buchstabe (Spalte)

Forumthread: Vorherhiger Buchstabe (Spalte)
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Vorherhiger Buchstabe (Spalte)

18.12.2017 12:19:44

Nati

Hallo zusammen,
wie kann ich den vorherigen Buchstaben einer bestimmten Spalte ermitteln. Bsp aktuelle Spalte ist X, ich brauche dann Spalte W.


Private Sub CommandButton1_Click()
Dim Adr, SpaBu As String
Dim tier As String
Dim SpaBuVor As String
Dim Adr2 As String
tier = ComboBox1.Value
Set rng = ActiveSheet.Rows("2:2").Find(tier)
Adr = rng.Address
'Ermittlen des Spaltenbuchstabens
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
'--> Klappt, es wird X ausgegeben
'---> KLAPPT NICHT, DA ADRESS EIN STRING IST KANN ICH KEIN WERT ABZIEHEN(-1), ABER WIE DANN?
Adr2 = rng.Address - 1
MsgBox Adr2

Grüße,
Nati

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Adr2 = rng.Address.Offset(0, -1)

18.12.2017 12:24:19

lupo1
AW: Adr2 = rng.Address.Offset(0, -1)

18.12.2017 13:26:45

Nati
Adr2 = rng.Offset(0, -1).Address (ungetestet)

18.12.2017 13:36:17

lupo1
AW: Adr2 = rng.Offset(0, -1).Address (ungetestet)

18.12.2017 14:51:43

Nati
tausch mal Address und Offset

18.12.2017 15:03:16

Matthias
AW: Vorherhiger Buchstabe (Spalte) - getestet

20.12.2017 13:52:34

Firmus

Adr2 = rng.Address.Offset(0, -1)

18.12.2017 12:24:19

lupo1

AW: Adr2 = rng.Address.Offset(0, -1)

18.12.2017 13:26:45

Nati

Hi Lupo,
es kommt leider ein Fehler "ungültiger Bezeichner"

Adr2 = rng.Offset(0, -1).Address (ungetestet)

18.12.2017 13:36:17

lupo1

AW: Adr2 = rng.Offset(0, -1).Address (ungetestet)

18.12.2017 14:51:43

Nati

Funktioniert leider nicht, kann es an der Range liegen ?

tausch mal Address und Offset

18.12.2017 15:03:16

Matthias

Hallo
Bsp.

Option Explicit
Private Sub CommandButton1_Click()
Dim SpaBu$, Adr$, Tier$, RnG As Range
Tier = "Fuchs"
Set RnG = ActiveSheet.Rows("2:2").Find(Tier)
Adr = RnG.Offset(, -1).Address
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
MsgBox SpaBu
End Sub

Gruß Matthias

AW: Vorherhiger Buchstabe (Spalte) - getestet

20.12.2017 13:52:34

Firmus

Hi Nati,
versuch mal das:
Dim xoffSpalte As Variant
Dim xoffCHAR As String
Cells(1, ActiveCell.Column - 1).Activate
xoffSpalte = Split(ActiveCell.Address, "$") 'ab stelle 2 '$' suchen als ende xoffCHAR = xoffSpalte(1) 'column in CHAR, 2. Eintrag aus ARRAY nehmen
Bei mir klappt es.
Gruß,
Firmus