title image


Smiley Probleme mit Schleife
Guten Tag



Kann mir jemand erklären, weshalb die folgende Schleife nicht funktioniert?



Die Schleife ist Teil einer anderen Prozedur.



strcell wird normalerweise durch den Inhalt einer Zelle gefüllt. Das kann die Zahl 100 oder auch eine andere sein.



Die Schleife soll nun so lange ausgeführt werden, bis z.B. A100 erreicht ist. D.h. alle Zellen der ersten Spalte oberhalb von A100 sollen rot eingefärbt werden.



Sub Farbe()

Dim strcell As Integer

strcell = 100

Do Until ActiveCell = Range("A" & strcell)

ActiveCell.Interior.ColorIndex = 3

ActiveCell.Offset(1, 0).Activate

Loop

End Sub



Besten Dank für Hilfe.

Gruß

Maria

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: