Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

[VBA] Unbenutzte Zahlenformate loeschen

[VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 00:18:12
P.Mackes
Hallo,
mit folgendem Makro soll man "angeblich" unbenutzte Zahlenformate loeschen koennen.
http://www.j-walk.com/ss/excel/eee/eee007.txt
(einfach nach "unused" suchen mit Strg+F)
leider funktioniert das Makro meiner Meinung nach nicht richtig
nach dem cleaning habe ich noch etwa 200 custom number formats, was weit unter dem max. von ca. 4000 liegt, trotzdem erhalte ich beim einfuegen neuer formate immer noch die fehlermeldung dass ich keine neuen formate hinzufuegen kann
Vielleicht kann einer der VBA Profis ein paar Blicke auf den Code werfen und entdecken, wo der Fehler liegen koennte?
mit freundlichen Gruessen, Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: [VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 01:21:40
Jürgen
Hallo Peter,
ich hatte vor ein paar Tagen ein ähnliches Problem, das sich aber auf ein korruptes Arbeitsblatt zurückführen ließ. Dieses Blatt ließ sich z.B. nicht mehr mit den banalsten VBA-Befehlen ansprechen (z.B. führte ein ?Sheets(1).name im Direktbereich nicht zur Ausgabe des Blattnamens, sondern zu einer VBA-Fehlermeldung). Die Anzahl der genutzten Cellformate versuchte ich, mit dem CellFormatCounter-Addin zu prüfen - dieses verweigerte aber den Dienst mit dem Hinweis, dass ein Arbeitsblatt geschützt sei - obwohl dies nicht der Fall war. Erst das Löschen und Neu anlegen des Blatts verschaffte Abhilfe.
Herzlichen Gruß
Jürgen
Anzeige
AW: [VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 09:37:17
P.Mackes
das ist für mich keine alternative
das modell ist viel zu groß da was rauszulöschen
dann kann ich die ganze exceldatei wegwerfen^^
die asap utilities haben die möglichkeit unbentzte styles zu adden
leider kann ich diese hier nicht installieren
darum dachte ich jemand hat vll. einen vba code, der dasselbe kann
AW: [VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 09:38:06
P.Mackes
ich meine natürlich unbenutzte styles zu löschen^^
AW: [VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 10:53:38
Jürgen
Hallo Peter,
Deine ursprüngliche Frage lautete 

nach dem cleaning habe ich noch etwa 200 custom number formats, was weit unter dem max. von ca. 4000 liegt, trotzdem erhalte ich beim einfuegen neuer formate immer noch die fehlermeldung dass ich keine neuen formate hinzufuegen kann


Du solltest die Möglichkeit in Betracht ziehen, dass die Anzahl der Formate tatsächlich bei 200 liegt, und wenn Du dennoch eine Fehlermeldung erhälst, nach alternativen Ursachen forschen - so unangenehm die Konsequenzen sein mögen. Ein anderer Code für die (möglicherweise) falsche Lösung hilft Dir da auch nicht.
Herzlichen Gruß,
Jürgen
P.S.: der Verzicht auf Groß- und Kleinschreibung verringert die Lesbarkeit von Text deutlich - und damit auch die Bereitschaft mancher potentieller Helfer, sich auf Deine Anfrage einzulassen.

Anzeige
AW: [VBA] Unbenutzte Zahlenformate loeschen
08.05.2009 13:22:25
Tino
Hallo,
Du könntest es mal hiermit an einer Kopie Deiner Datei mal testen.
Es wird zuerst nach der letzten Zeilen gesucht die eine Formel oder einen Wert enthält.
Ab der nächsten Zeile bis zur letzten werden danach alle Zeilen gelöscht.

Sub Beispiel()
Dim LRow As Long
'Tabellenname anpassen
With Sheets("Tabelle1")
On Error Resume Next
LRow = .Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
LRow = Application.Max(LRow, .Cells.Find("*", , xlFormulas, 2, 1, 2).Row)
On Error GoTo 0
.Rows(LRow + 1 & ":" & .Rows.Count).Delete
End With
End Sub


Ob es funktioniert kann ich Dir aber nicht sagen.
Gruß Tino

Anzeige

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2