[GastForen Programme Office Microsoft Office Excel 2003 VBA NumberFormat

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Excel 2003 VBA NumberFormat

Klaus Neubert
Beiträge gesamt:

9. Sep 2011, 10:53
Beitrag # 1 von 7
Bewertung:
(6059 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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
X

Excel 2003 VBA NumberFormat

Klaus79
Beiträge gesamt: 320

9. Sep 2011, 12:07
Beitrag # 2 von 7
Beitrag ID: #479909
Bewertung:
(6048 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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


als Antwort auf: [#479898]

Excel 2003 VBA NumberFormat

Klaus Neubert
Beiträge gesamt:

9. Sep 2011, 12:51
Beitrag # 3 von 7
Beitrag ID: #479913
Bewertung:
(6028 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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


als Antwort auf: [#479909]

Excel 2003 VBA NumberFormat

farbauge
Beiträge gesamt: 844

9. Sep 2011, 14:36
Beitrag # 4 von 7
Beitrag ID: #479928
Bewertung:
(6007 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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


als Antwort auf: [#479913]

Excel 2003 VBA NumberFormat

Klaus Neubert
Beiträge gesamt:

9. Sep 2011, 16:00
Beitrag # 5 von 7
Beitrag ID: #479939
Bewertung:
(5994 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
danke für den Tipp.

Gruß k


als Antwort auf: [#479928]

Excel 2003 VBA NumberFormat

KlausF
Beiträge gesamt: 31

9. Sep 2011, 18:25
Beitrag # 6 von 7
Beitrag ID: #479957
Bewertung:
(5977 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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


als Antwort auf: [#479913]

Excel 2003 VBA NumberFormat

Klaus Neubert
Beiträge gesamt:

12. Sep 2011, 15:21
Beitrag # 7 von 7
Beitrag ID: #480091
Bewertung:
(5888 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Klaus, die Prozedur funktioniert nicht so wie gewünscht.
Aber der Verweis auf HERBER ist ein Volltreffer!

Danke sehr!!

Gruß Klaus


als Antwort auf: [#479957]
X

Aktuell

PDF / Print
300_PDF20

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/