Doppelten Spaltenbuchstaben per VBA
13.10.2008 11:18:55
Andreas
Ich hänge gerade an einem Problem(chen) fest. Ich möchte gern über ChrW(activecell.colum + 64) den Spaltenbuchstaben ermitteln. Funktioniert auch. Aber leider nur für einstellige Spaltenbuchstaben. Für die zweistelligen habe ich aus dem Forum einen Ansatz:
Application.Substitute(ActiveCell.Address(0, 0), 1, "")
Über Versuch und Irrtum komme ich jedoch nicht zu dem Punkt, daß nur die Buchstaben der Spalte angezeigt werden. Aus der VBA Hilfe für "Address" bin ich nicht so recht schlau geworden. Wo im o.g. Code muß ich modifizieren, um die Buchstaben zu bekommen?
Ich habe auch schon mit einer Schleife experimentiert in der ich alle Zeichen der Address druchlaufe und auf isnumeric prüfe, aber dieser Code funktioniert auch nicht sauber, er benötigt oftmals zwei Auslösungen, ehe er das korrekte Ergebnis liefert.
Hat jemand von Euch eine Idee, wie ich sicher an die Spaltenbuchstaben komme?
Vielen Dank und Grüße, Andreas