title image


Smiley Re: Danke - hier der Code


Public Sub AbstandSpalteZelle2()

Dim I As Integer

Dim J As Integer

Dim SpalteHeute As Integer

Dim b As Long

Dim c As Boolean





' Werte neu setzen für schnellere Berechnung. Werden am Schluß wieder eingeschaltet.

' Werte speichern

b = Application.Calculation

c = Application.EnableEvents



' Ausschalten aller Ereignisse, die eine Neuberechnung veranlassen können

Application.EnableEvents = False



' Automatische Neuberechnung bei Änderung eines Zelleninhaltes ausschalten, damit nicht

' bei jeder Zeile eine Neuberechnung erfolgt.

Application.Calculation = xlCalculationManual







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



' Alte Werte wieder setzen

Application.Calculation = b

Application.EnableEvents = c



End Sub








Aus verschiedenen Blickwinkeln betrachtet sieht ein und dieselbe Sache
unterschiedlich aus - das sollte nicht zur Ursache des Streites werden.


http://www.bahai.de/lech-ammersee/




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: