AW: Nach Format sortieren
22.02.2010 23:44:23
Daniel
HI
ich würde eine kleine selbstgeschriebene Funktion erstellen, die das Zahlenformat in eine Hilfssspalte schreibt und dann per Excel-Sort-Funktion die Tabelle nach dieser Hilfsspalte sortieren:
Public Function Zahlenformat(rng as range) as string
Zahlenformat = rng.numberformat
End Function
oder wenn du nur den Endbuchstaben benötigst (muss aber mit Leerzeichen von Zahlenformatteil getrennt sein):
Public Function WährungsZeichen(rng as range) as string
Währungszeichen = rng.Numberformat
if instr(Währungszeichen, " ") > 0 then Währungszeichen = Mid$(Währungszeichen, InstrRev(Wä _
hrungszeichen, " ")+1)
End Function
zu erwähnen ist allerdings, daß erst das Zahlenformat feststehen muss und danach erst die formel eingefügt wird, da eine nachträgliche Änderung des Formates keine Neuberechnung der Formel veranlasst.
Gruß, Daniel