title image


Smiley Re: Range - was mache ich da falsch?
Hi,



ich verstehe zwar nicht ganz, was du erreichen willst, aber ich habe mal versucht, deinen Code 1:1 ins Excel-VBA zu übersetzen

Public Sub Korrektur()

Dim loLetzte As Long ' letzte belegte Zelle

Dim loI As Long ' Zähler

loLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)

For loI = 1 To loLetzte

If Cells(loI, 3).Value = Cells(loI + 1, 3).Value Then

Cells(loI, 4).Value = loI

Else

loI = 1

End If

Next

End Sub



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: