|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Beverly am 11.10.2010 um 15:29 Uhr (0)
Hi,ungetestet:Code:Sub Farbenlöschen() Dim lngZeile As Long Dim wshTabelle As Worksheet For Each wshTabelle In ActiveWorkbook.Worksheets With wshTabelle For lngZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Cells(lngZeile, 1).Interior.ColorIndex = 6 And Cells(lngZeile, 2).Interior.ColorIndex = 6 And _ Cells(lngZeile, 3).Interior.ColorIndex = 6 And Cells(lngZeile, 4).Interior.ColorIndex = 4 And _ Cells(lngZeile, 5).Interior.Colo ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 11.10.2010 um 12:03 Uhr (0)
... also etwa so:Code:Private Sub ZeileWegErweitert()Dim ilZeile As Integer letzte ZeileDim i As Integer ilZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row For i = ilZeile To 1 Step -1 ausgelagert: Diese Farben prüfen... If LoeschbedingungFarben(i, 6, 6, 6, 4, 26, 5) = True Or _ LoeschbedingungFarben(i, 6, 6, 6, 4, 5, 5) = True Then eigentlicher Löschvorgang Rows(i).Delete End If Next iEnd SubPrivate Function LoeschbedingungFarben(i As Integer, ic1 As Integer, ic2 As Integer, ic3 As Integ ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 14.10.2010 um 13:23 Uhr (0)
Tach auch,Danke an Nepumuk! Sauber ausgebaut. @CADdoctor: Es ist natürlich ein gewaltiger Unterschied, ob wir von 2-3 Zeilen oder - wie in der Beispielmappe - von über 56.000 Zeilen sprechen...Bezüglich Deiner Frage zur Schleife über alle Register hat Beverly oben schon was geschrieben. Wobei ich gedanklich die Arbeit je Register erledigen lassen würde, dann brauchst Du nur einen Array, den Du vor jedem (weiteren) Register einfach leer putzt. Frage: Wie viele Register werden es denn (vermutlich)?Dann könnt ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 13.10.2010 um 14:56 Uhr (0)
Hm... ein Long benötigt auf alle Fälle mehr Speicherplatz als ein Integer; überleg Dir, ob es wirklich Long sein müssen. Aus der Hilfe zu VBA:Variablen vom Datentyp Integer werden als 16-Bit-Zahlen (2 Bytes) in einem Bereich von -32.768 bis 32.767 gespeichert.Variablen vom Datentyp Long (lange Ganzzahl) werden als 32-Bit-Zahlen (4 Bytes) mit Vorzeichen im Bereich von -2.147.483.648 bis 2.147.483.647 gespeichert.Vielleicht magst Du eine Dummy-Mappe (ohne sensible Daten) mit enthaltenen Farbkombinationen als ...
|
| In das Form Excel wechseln |
|
Excel : Zahlenreihe und-color: #FFFF99'>suchen und Zeile löschen per VBA
RSchulz am 06.12.2010 um 20:30 Uhr (0)
Guten Abend,der Code ist an für sich nicht wirklich sauber durchdacht. Sry wenn ich das so ausdrücken muss...Dieser hier funktioniert, allerdings muss ich sagen, dass auch dieser noch besser sein könnte. Ich habe allerdings nun keine Lust mehr...Code:Public Sub t() Dim ilZeile As Long letzte Zeile Dim i As Long Dim j As Integer Dim Zahlen As String Dim blnDeleteRow As Boolean Dim LeereSpalte As Integer Dim tmpData() As String Application.ScreenUpdating = False LeereSpalte = ActiveS ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 14.10.2010 um 15:54 Uhr (0)
Puh... 234 Blätter x 56.000 Zeilen, das ist ne Latte voll! Vorschlag: Anschubsen, Mittagspause . Screenupdating: Primär stellt es das Geflacker ab; wieviel Leistung das zieht, kann ich Dir nicht sagen.Code:Dim objWS As WorksheetApplication.ScreenUpdating = False For Each objWS In ThisWorkbook.WorksheetsBlätter durchlaufenApplication.StatusBar = "Verarbeite Register " & objWS.Name For lngRow = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row To 1 Step -1... Next lngRowApplication.StatusBar = "Verarbei ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
CADdoctor am 11.10.2010 um 09:58 Uhr (0)
Guten Morgen Paulchen!Es muss natürlich nicht A1 bis A6 heißen sondern A1 bis F1!Tschuldigung !Die Zellen haben ihre Hintergrundfarbe nicht über eine bedingte Formatierung erhalten. (also hat nicht mit meinem anderen Beitrag zu tun.)Ich hab den Fehler schon gefunden.Das grün mit dem Ich meinen Hintergrund gefärbt hatte, entspricht nicht der Indexfarbe 4!Hab alles auf die Farbe 4 geändert und jetzt funktionierts. Ich hänge momentan bei dem Versuch mehrere Fälle in mein VBA Prog einzubauen.Und das ganze soll ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 11.10.2010 um 09:25 Uhr (0)
Guten Morgen,ich habe die Aufgabenstellung nicht verstanden . Zitat:Wenn A1=gelb und A2=gelb und A3=gelb und A4=grün und A5=grün und A6=blau dann Zeile löschenA1 bis A6: Das sind sechs Zeilen; nach meinem Verständnis ist 6 1.Welche Zeile(n) sollen gelöscht werden - alle 6?Wie erhalten die Zellen ihre Farben - am Ende gar über bedingte Formatierung aus Deinem Nachbarbeitrag? Dann ist es sicherer und eleganter, die Bedingung (und nicht die Farbe) zu prüfen.Woher weißt Du, das Du was "falsch" machst - was g ...
|
| In das Form Excel wechseln |
|
Excel : excel funktion, nach kriterien und-color: #FFFF99'>suchen und summe bilden
DegraA am 09.01.2008 um 11:06 Uhr (0)
moin moin ich habe so ein ähnliches Problem....ich weiß nicht ob ihr dieses eine Spiel kennt wo in eine "Nagelpyramide" (keine Ahnung ob man das so nennt) ein Ball oder eine Kugel geworfen wird und diese/r dann nur nach rechts oder links fallen kann.meine Pyramide besteht aus 8 Ebenen und am ende warten insgesamt 9 Fächer auf die Kugel oder was auch immer.Ich habe mit der Funktion ZUFALLSZAHL() für alle 8 Ebenen die möglichkeit "Rechts" oder "Links" eingegeben und möchte jetzt ermitteln in welches Fach di ...
|
| In das Form Excel wechseln |
|
Excel : excel funktion, nach kriterien und-color: #FFFF99'>suchen und summe bilden
Viper.qt am 29.11.2007 um 11:51 Uhr (0)
Guten Tag,ich bin leider ein graußiger excel und vbs newbie, arbeite ansich nur mit php/asp, bräuchte aber nun ausnahmsweise eine kleine excel/vbs Funktion und kenn mich leider null damit aus.Ich hoffe und bitte das mir kurz einer Hilft der sich auf diesem Gebiet auskennt und für dem diese Lösung nur wenige Handgriffe sind.Zum Problem:1 File (daten.xls) mit mehrern TabellenblätternIn einem Tabellenblatt stehen Daten in mehrern Spalten (ID, Datum, Gruppe, Anzahl, Kosten) und natürlich in vielen Zeilen die D ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
MarkusK am 15.10.2010 um 10:03 Uhr (0)
Hallo CADdoctorich habe letzt auf office-lösungen.de ein interesanten Beitrag zum Löschen gefunden.Wenn du eine leere Spalte übrig hast, ist es schneller diese Hilfsspalte zu füllen, diese zu sortieren, und dann ein Bereich zu löschen.Test mal den CodeCode:Public Sub t()Dim ilZeile As Long letzte ZeileDim i As LongDim j As IntegerDim Farben As StringDim blnDeleteRow As BooleanDim LeereSpalte As IntegerApplication.ScreenUpdating = FalseLeereSpalte = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Colum ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Nepumuk am 13.10.2010 um 22:51 Uhr (0)
Hallo CADdoctor,etwas unglücklich der Code.1. In der Hauptroutine prüfst alle 21 Möglichkeiten durch auch wenn schon die erste zutrifft und die anderen garnicht mehr geprüft werden müssen..2. In der Unterroutine prüfst du alle 6 Möglichkeiten durch, auch wenn schon die erste nicht zutrifft.3. Nie jede Zeile einzeln löschen, sondern erst alle Zeilen welche zu löschen sind sammeln und dann alle auf einen Schlag löschen.Code:Option ExplicitPublic Sub ZeileWegErweitert() Dim lngRow As Long Dim blnDeleteRow A ...
|
| In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Paulchen am 11.10.2010 um 11:46 Uhr (0)
Aha, die Schatten lichten sich !Select Case mit .Value prüft den Zellwert, nicht die Farbe.Select Case und Case 1 = ... Then wird nicht funktionieren. Guck in die Hilfe zu Select Case, die F1-Taste ist Dein Freund, wenn Du den Cursor in Select Case positioniert hast.Was hast Du denn vor? Unterschiedliche Farbkombinationen löschen? Dann würde ich - nur als Vorschlag - ein paar weitere Variablen einführen, als Boolean, die kennen nur WAHR oder FALSCH. Klingt zunächst wild, steigert aber letztlich die Übers ...
|
| In das Form Excel wechseln |
