Codeänderung - knifflig | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dirk,
der Schalter ist, wie Du richtig bemerkt hast, der für Frage noch offen. Du kannst damit die Anzeige unter Offene Fragen anschalten.
Schön dass Du die Sache mit dem Calculate rausgefunden hast. Wenn man sich etwas mit der Materie beschäftigt kommt man langsam hinter das eine und andere ...
Wer hat denn gemeint, dass Du Dich mit fremden Federn schmückst? Habe dazu im Thread nichts gefunden. Manchmal ist ein entsprechender Hinweis nicht schlecht, ob er nun in der Überschrift steht oder im Text und in der Überschrift fällt es mehr auf. und alle kommt dazu weil sonst wieder Bemerkungen kommen dass auch ander mitwirken wollen ... Ich weiß auch nicht wem ich schon alles geholfen habe und so viel Zeit habe ich auch nicht um in alle Beiträge reinzuschauen. Die Hilfe vom Programmierer ist gerade bei längeren codes nicht zu verachten, weil selbiger weiß was er erreichen wollte.
Was ist denn nun eigentlich noch offen? Für die Formatierung hatte ich die bedingte Formatierung vorgeschlagen und das könnte vielleicht bei erstens und zweitens wirken, und wegen dem Flackern solltest Du mal schrittweise vorgehen und schauen, dass die Anweisung Application.ScreenUpdating=True möglichst erst am Ende der codeausführung kommt.
Schrittweise geht mittels F8. Du kannst vorher in jedem Modul in die erste codezeile die geht einen Haltepunkt mit F9 setzen, die Zeile wird dann braun markiert und der code bleibt dort stecken. Dann geht's wie gesagt mit F8 weiter. Kannst natürlich auch alle Zeilen mit dem ScreenUpdating als Haltepunkt setzen und von dort aus mit F5 weiter. Das geht erst mal schneller und eventuell erkennt man auch was.
Wenn Du so was siehst
Range("C6:D36,G6:H36,K6:L36,O6:P36").Select
With Selection.Interior
.ColorIndex = 6
End With
kannst Du versuchen, es zu vereinfachen:
Range("C6:D36,G6:H36,K6:L36,O6:P36").Interior.ColorIndex = 6
Select mus nicht sein, kann auch wieder Flackern und Aktionen auslösen ...
Hoffe geholfen zu haben Grüße von André aus Gera - Excel-97-2003

Hallo André,
vielen Dank für deine sehr ausführliche und hilfreiche Antwort.
Bitte gestatte mir ein kurzes chronologisches Feedback:
- Calculate: Da habe ich wohl den 2. vor dem 1. Schritt gemacht - mehrere Änderungen vorgenommen u. erst danach getestet - so wurde mir das Resultat nicht gleich bewusst.
- fremde Federn: Sorry, da habe ich dich wohl total mißverstanden. Bei mir entstand durch deine Betreff-Änderung u. den Beitrag dazu leider dieser Eindruck...
- weil selbiger weiß was er erreichen wollte: Darum bezog ich mich immer wieder auf den alten Thread. Der Urheber hat natürlich den besten Überblick. Allerdings vermied ich aus besagtem Grund die direkte Ansprache.
- bedingte Formatierung: Diesen Tipp habe ich umgesetzt, allerdings "beisst" sich da nun wohl etwas mit dem Blattcode. Doch ich bin noch am Basteln... ;-)
- Schrittweise geht mittels: Diese Vorgehensweise kannte ich bisher nicht - VBA-Laie - aber sie wird sehr hilfreich sein. Danke.
- Wenn Du so was siehst: Tja, das hatte ich mittels Makrorekorder gezaubert - und werde es sofort ändern. Asche auf mein Haupt...
---dein Unterschriftslogo: Prima gestaltet - zum neuen BUGA-Logo fehlt nur noch das alte IGA-Logo ;-) ;-)
Sei doch mal ein "Verräter" u. erläutere mir bitte, wie du das bewerkstelligt hast (evtl. per: di-ne@web.de).
Bis dahin beschäftige ich mich erstmal mit dem neuen Beitrag von fcs - mal schauen, wie weit ich komme...
ciao Dirk

Beliebteste Forumthreads (12 Monate)

Codeänderung - knifflig

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread