Hallo im Forum,
wir bekommen viele XLS für den Import nach InDesign.
Da überarbeiten wir regelmäßig die Formatierung.
Warum auch immer, gibt es in den meisten XLS massenhaft benutzerdefinierte Zahlenformate, die meisten gar nicht benutzt werden und uns da sehr stören.
Irgendwo - mittendrin - stehen dann auch ab und zu schon die von uns benötigten.
Das führt zu meiner Frage:
Gibt es bei VBA z.B. eine Art Auflistung der in der XLS vorhandenen benutzerdefinierten Formate und evtl. auch den Status (verwendet/nicht verwendet) dazu oder eine andere Chance an die schon definierten Formate heran zu kommen ?

Wir würden zu gern in diesen XLS per VBA diese Liste putzen.
Im PullDownMenü kann man immer nur eines löschen und steht danach am Listenanfang. Da würden wir uns ja einen Wolf klicken.

Gruß Klaus

Hallo Klaus,
ich bin nicht sooo VBA-bewandert, aber mit

Sub ClearFormate()
With Range("A1:D100")
.ClearFormats
.NumberFormat = "Hier dein Wunschformat eingeben"
End With
End Sub

wird das aktuelle Format in A1:D100 gelöscht und
mit deinem Wunschformat überschrieben.
Das Wunschformat kannst du mit dem Excel-Makrorecorder
aufzeichnen.

Gruß
Klaus

Hallo Namensvetter, danke sehr für Deine schnelle Antwort,
aber ...
Wir haben nicht das Problem, unsere eigenen Formate da drüber zu bügeln.
Wir wollen diese teils irrsinnig langen benutzerdefinierten Formate-Listen (sichtbar in: Zellenformatieren>Reiter Zahlen>Kategorie Benutzerdefiniert) putzen und darin nur unsere stehen lassen, damit auch die Lieferanten schnell und möglichst ausschließlich die gewünschten Formate finden.

Gruß K

Hallo Klaus,

ich hatte schon fast etwas für dich gefunden, der Link war aber leider tot.

Versuch mal was unter http://www.herber.de zu finden, z.B.
im Forum oder Forumsarchiv.

Die Suche könnte etwas mühselig sein, aber wenn es eine Lösung
gibt, findest du sie bei Herber oder es gibt keine.

Gruß
Peter

danke für den Tipp.

Gruß k

Hallo Klaus:

das könnte helfen:
http://www.herber.de/download1.html

oder

Sub FormateLöschen()
For n = 100 To 1 Step –1
Application.StatusBar = n
SendKeys "{Tab}"
For i = 1 To 11
SendKeys "{down}"
Next
SendKeys "{Tab}"
SendKeys "{Tab}"
For i = 1 To n
SendKeys "{down}"
Next
SendKeys "%l"
SendKeys "{Enter}"
Application.Dialogs(xlDialogFormatNumber).Show
Next
Application.StatusBar = False
End Sub

Die Zahl 100 steht fiktiv für die Anzahl der Formate
Code stammt nicht von mir sondern aus einem Forum.

Gruß
Klaus

Hallo Klaus, die Prozedur funktioniert nicht so wie gewünscht.
Aber der Verweis auf HERBER ist ein Volltreffer!

Danke sehr!!

Gruß Klaus