title image


Smiley Re: Langsame Prozedur
Hallo,

versuchs mal hiermit:



Sub Abstand()



Dim I As Integer

Dim J As Integer

Dim SpalteHeute As Integer



SpalteHeute = Range("F1").Column

For I = 8 To 508

J = SpalteHeute - 1

Do Until J = 1 Or Not IsEmpty(Cells(I, J).Value)

J = J - 1

Loop

If J = 1 And IsEmpty(Cells(I, J).Value) Then

Cells(I, 8).Value = 9999

Else

Cells(I, 8).Value = SpalteHeute - J

End If

Next I



End Sub




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: