Rahmen verwenden (Programmierung / Office/Excel) - Lösung vorhanden!

Autor	Thema: Rahmen verwenden (624 mal gelesen)
InvCorax Mitglied Systembetreuer / Konstrukteur Beiträge: 454 Registriert: 21.03.2006	erstellt am: 13. Jan. 2016 14:49 <-- editieren / zitieren --> Unities abgeben: Hallo Leute, ich hab da ein Problem. Ich habe hier eine Mega Tabelle mit ~20.000 Zeilen und ~40 Spalten mit verschiedensten Inhalten. Dabei werden immer 2 Zeilen miteinander verglichen und müssen ggf. bearbeitet werden. Einige Spalten wurden schon durchgearbeitet und meine Kollegen hier haben Zellen die nochmal manuell überprüft werden müssen mit nem roten Rahmen markiert. Ja nicht den Text, nicht die Zellenfarbe geändert, nein nen (blöden) Rahmen genommen zum markieren der Zellen.... Und wer hätts gedacht, keine ahnung ob/wie man danach sortieren, filtern oder suchen kann Soweit meine Rechnerche nun voarngeschritten ist geht das auch nicht einfach OOTB. Jetzt die 20.000 zeilen manuell durch zu schauen und dennen dann ne andere Formatierung zu verpassen hab ich total Lust zu.... Hat hier evtl. jemand ne Ide oder zufällig ne VBA dazu?! Würde mich wirklich freuen, kann selbst leider kein VBA...höchstens was wenig anspruchsvolles anpassen.... Grüße Corax ------------------ Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
runkelruebe Moderator Straßen- / Tiefbau Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)	erstellt am: 13. Jan. 2016 14:59 <-- editieren / zitieren --> Unities abgeben: Nur für InvCorax Und nach der Textfarbe hätteste mit VBA suchen können? Na dann... Versuch's halt mal mit sowas: Code: For a = 1 To 10 If Cells(a, 1).Borders.Color = 0 Then Cells(a, 1).RowHeight = 0 Next a Blendet die Zeile aus, in deren Spalte A keine Rahmenfarbe vergeben wurde. Anmerkung: Wirkt (ungetestet) nicht auf bedingte Formatierungen, siehe dazu >> http://ww3.cad.de/foren/ubb/Forum226/HTML/000974.shtml#000015 << HTH ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
InvCorax Mitglied Systembetreuer / Konstrukteur Beiträge: 454 Registriert: 21.03.2006	erstellt am: 13. Jan. 2016 15:03 <-- editieren / zitieren --> Unities abgeben: Ne, nach der Textfarbe kann ich auch ohne VBA Sortieren und Filtern.... -Filtern würde mir ja schon reichen... Ich versuchs gleich, Danke! ------------------ Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
InvCorax Mitglied Systembetreuer / Konstrukteur Beiträge: 454 Registriert: 21.03.2006 Intel Xeon 3,2GHz 12GB DDR3 NVIDIA Quadro 4000 Win 7 (64bit) SE ST8 MP10 SE ST10 (Test) TC 10.1.5	erstellt am: 13. Jan. 2016 15:17 <-- editieren / zitieren --> Unities abgeben: hm...das is schon ganz gut, Danke hierfür! Leider dauert das recht lange zum durchlaufen... Wenn ich das für jede Spalte machen muss brauch ich auch recht lange hast mir evtl. nen Tipp wie ich das für ne ganze Zeile anpassen könnte, dann kann ichs einfach mal heute Nacht durchlaufen lassen...? ------------------ Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung [Diese Nachricht wurde von InvCorax am 13. Jan. 2016 editiert.] [Diese Nachricht wurde von InvCorax am 13. Jan. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
runkelruebe Moderator Straßen- / Tiefbau Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)	erstellt am: 13. Jan. 2016 17:33 <-- editieren / zitieren --> Unities abgeben: Nur für InvCorax Für dieses "im Bereich" könntest Du das Makro von MWN in dem oben verlinkten thread zwei AW höher verwenden Code: Function Farbsumme(Bereich As Range, Farbe As Integer) Dim Zelle As Object Application.Volatile For Each Zelle In Bereich [...] und hier dann das, was DU tun möchtest Anstatt Function auch gern ein Sub mit festen Bereichen und da drin ein Application.ScreenUpdating = False vorne und True hinten, das sollte schon was bringen, ne ganze Nacht wird's nicht brauchen... Hab keine passende software hier zum Testen/Schreiben, vielleicht schreibt's Dir ja noch wer anders, ansonsten ist das DIE Gelegenheit für Deinen Einstieg in die Makrowelt Viel Erfolg! ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
InvCorax Mitglied Systembetreuer / Konstrukteur Beiträge: 454 Registriert: 21.03.2006	erstellt am: 14. Jan. 2016 08:23 <-- editieren / zitieren --> Unities abgeben: Danke! ------------------ Schreibfehler sind beabsichtigt und dienen der allgemeinen Belustigung Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)