title image


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



habe folgendes (Sub-)Makro, indem ich in der Hauptroutine als Messagebox die Anzahl der korrigierten Zeilen (Artikel) ausweisen möchte. D.h. wie oft wird nachfolgender If-Zweig durchlaufen. Habs bereits mit den Befehlen "count" und "true" experimentiert, aber wie es aussieht mache ich eine Kleinigkeit falsch!

Irgendwelche Tips Eurerseits? Vielen Dank einstweilen. Gruß C.c.



Sub Korrektur_Artikelkosten()



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



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

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

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: