title image


Smiley Re: jede 2. Zeile grau schraffieren (VBA!)???
Hi Buttinger,Sub selColor() 'By Nike'ausgewählt Zeilen färbenDim rngBereich As Range   Dim rngFarb As Range   Dim lngRow As Long   On Error GoTo ErrEnde     lngRow = 1Set rngBereich = Application.InputBox( _

   "Zellen auswählen, die Formatiert werden sollen", _

   "Zellauswahl", "A1", , , , , 8)    For lngRow = rngBereich.Cells(1).Row To rngBereich.Cells(1).Row + rngBereich.Rows.Count      Set rngFarb = Intersect(rngBereich, Rows(lngRow))          With rngFarb             If bolCol Then                  lngCol = 15            Else                 lngCol = -4142            End If              bolCol = Not bolCol             .Interior.ColorIndex = lngCol         End With  Next Exit Sub  ErrEnde:     Err.ClearEnd Sub  



Bye



Nike





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: