#.##0,000 "ST"
und
#.##0,000 "M"
per VBA identifizieren und sortieren?
Danke Gruß Friedel
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