title image


Smiley Re: Häufigkeit Durchlauf If-Zweig - Ausgabe Messagebox
Hallo Coolcat,



was spricht dagegen, wenn du einfach eine Zählvariable einsetzt und am Ende deren Wert abfrägst.



Sub Korrektur_Artikelkosten()



Dim J As Long, lastrow As Long, artikel As Variant

Dim Zaehler as long

Zaehler=0

lastrow = Cells(Rows.Count, 1).End(xlUp).Row



For J = 14 To lastrow

Application.StatusBar = "Correcting Articles!"

If Cells(J, 1).Offset(1, 1) = "" Then

Zaehler=Zaehler+1

artikel = Cells(J, 1) & Cells(J, 1).Offset(1, 0)

Cells(J, 1) = artikel

Else

artikel = Cells(J, 1)

Cells(J, 1) = artikel

End If

Next J

msgbox Zaehler

End Sub





Viele Grüße

Herby



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: