@ Sepp: Noch mal Hilfe!
20.05.2009 16:35:47
Claudia
Du hattest mir unter diesem Link super geholfen.
https://www.herber.de/forum/archiv/1072to1076/t1075675.htm#1075720
Eine Frage hätte ich noch: Wäre es ohne großen Aufwand auch machbar, nach Farben zu suchen und bei "Fund" die Zeile zu kopieren?
ICh nutze derzeit folgndes Makro::
Sub blau_kopieren_und_löschen()
Application.StatusBar = "blau_kopieren_und_löschen"
Application.ScreenUpdating = False
Dim lZeile As Long, i As Long, j As Long
lZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
For i = lZeile To 1 Step -1 ' Zeilen
For j = 1 To 50 ' spalte A bis AJ
Select Case Cells(i, j).Interior.ColorIndex
Case Is = 41 'blau
'Case Is = 3, 6, 41, 43 'rot, gelb, blau und grün
Rows(i).Copy Destination:=Sheets("KV102-Hinweise").Cells(Sheets("KV102- _
Hinweise").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Rows(i).Delete
Exit For
End Select
Next j
Next i
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Das Makro ist fertig!"
End Sub
Es ist halt sehr begrenzt, weil man im Editor die Änderungen vornehmen muss. D.h. man kann nicht jeden dran lassen und s gibt tatsächlich noch Mitarbeiter, die weniger Ahnung von Excel VBA haben als ich.
Muss ja auch nicht in der gleichen Userform sein. Gut wäre auf alle Fälle, wenn man die Spalten eintragen könnte, die durchsucht werden sollen. Derzeit habe ich 1 bis 50 dastehen. Aber in der Regel sind es natürlich weniger Spalten, die belegt sind.
?
VG
Claudia
PS: Sage danke, auch für den Fall, dass Du Dich nicht drangeben willst. Aber fragen kann ich ja mal. :-)