|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
MarkusK am 10.10.2010 um 22:28 Uhr (0)
Hallo CADdoctor,liegt daran, dass grün nicht 4 sondern 10 entspricht.Zumindest bei mir, und eines von mehreren grün.Die Farben kann man in den Optionen auch noch anpassen.Das heißt es könnte vorkommen, dass auf Platz 10 nicht unbedingtgrün liegt. (ist aber wohl eher unwarscheinlich dass das einer ändert)Schau dir beim durchlauf einfach mal die ColorIndexe der entsprechenden Zeilen an.------------------Gruss Markus
| | In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
MarkusK am 17.10.2010 um 17:30 Uhr (0)
Hallo CADdoctor,und in welcher Zeile?Bei mir läuft es eigentlich ohne Fehler.Hast du noch irgendwas angepasst oder modifiziert.Leider kann ich bei mir zu Hause die Datei nicht öffnen, da ich nur Office 2000 habe,und ich den Konvertierer (noch) nicht zum laufen gebracht habeWas ich entdeckt habe, ist, dass bei der 1. If-Abfrage in dem String am Anfang eine 0 (Null) fehlt.If Farben = "060606060606" ThenDa ich ja für alle 6 Zellen die Farben 2-stellig in ein String schreibe, müssen bei den If-Abragen für Jede ...
| | 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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
