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