Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benutzerdefinierte Formate löschen

Benutzerdefinierte Formate löschen
05.02.2003 10:30:43
Wolfgang H.
Hallo Leute,
Ich nuzte und integriere Tabellen von verschieden Nutzern aus verschiedenen Ländern. Ich vermute dadurch habe ich zu viele benutzerdefinierte Formate, die ich dann immer mühevoll einzeln löschen muss um neue Formate hinzufügen zu können.
Wie verhindere ich das unkontrollierte Anwachsen von der Anzahl von Formaten oder wie vereinfache/automatisiere ich das Löschen überflüssiger Formate.
Für Hilfe danke ich jetzt schon!

Wolfgang


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Benutzerdefinierte Formate löschen
05.02.2003 10:32:29
Hajo_Zi

Hallo Wolfgang

man kann nur einen Code erstellen de alle Benutzerdefinierten Formate löscht. Egal ob in Anwendung oder nicht.

Gruß Hajo

Re: Benutzerdefinierte Formate löschen
05.02.2003 12:00:56
Martin Bolleter

Hallo Hajo

und wie würde dieser Code aussehen?

Gruss
Martin

Re: Benutzerdefinierte Formate löschen
05.02.2003 12:11:35
Hajo_Zi

Hallo Martin

Benutzerdefinierte Formate (Excel) löschen
nur selbst definierte Formate
das Numberformat ist ja eine Eigenschaft, wie z. B. der Colorindex. Deshalb gibt es dafür auch keine Auflistung, aus der man bestimmte Elemente löschen kann.
Aber mit der folgenden Methode (und Geduld) geht es:
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
Die Zahl 100 habe ich frei gewählt - hier müßte man sehen, wieviele Einträge sich bei "Benutzerdefiniert" befinden.
von Jörg Lorenz


Gruß Hajo

Anzeige
vielen Dank
05.02.2003 12:19:41
Martin Bolleter

Hallo Hajo

vielen Dank, werd's mal studieren. Habe mit SendKeys wenig Erfahrung.

Gruss
Martin

Re: vielen Dank
05.02.2003 12:25:51
Hajo_Zi

Hallo Martin

ich auch, man muß nicht alles wissen nur wo man nachschauen kann.

Gruß Hajo

Re: vielen Dank
05.02.2003 13:44:53
Wolfgang H.

Ebenfalls - vielen Dank!

Wolfgang

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige