Schleifenproblem
08.12.2005 12:46:41
Dirk
probiere seit einiger Zeit mein Problem selbst zu lösen, gebe langsam auf,
mein VBA-Wissen reicht doch noch lange nicht aus.
habe ein Makro, mit Hilfe dieses Forums (nebenbei herzlichen Dank für die gute Hilfe), dass ich nun erweitern möchte-muß.
Denke das ist eine elegante Schleife
-nachschauen auf welcher Zeile man sich befindet
-nachschauen welchen ColorIndex die Vergleichszelle(gleiche Zeile,Spalte F)hat
-Vergleichen des Zellhintergrunds der ersten der markierten Zellen mit der Vergleichszelle
-wenn gleich zur nächsten Zelle
-sonst mit der Farbe der Vergleichszelle füllen, und dann zur nächsten Zelle der markierten Zellen
so hab ichs bislang probiert, komme aber allein nicht weiter, bitte helft mir
Range(d_Zellen_Adresse).Select
For Each d_test In Selection
'd_sonst_Hintergrund.Interior.ColorIndex = Range("f" & d_Zeilen_Nr).Interior.ColorIndex
d_test = Range("f" & d_Zeilen_Nr).Interior.ColorIndex
'If d_Zelle.Interior.ColorIndex = 4 Then d_Intzähler = d_Intzähler + 1
Next
Dirk