ich habe eine Datei von Excel 2003 nach Excel 2010 konvertiert.
In der Datei habe ich folgenden Code unter "Micosoft Excel Objekt - Diese Arbeitsmappe".
Der Code zählt wie oft ich eine Zeile in meinem Sheet "Aufträge" ausgedruckt habe.
Das Problem ist jetzt, dass der Zähler nicht mehr in der jeweiligen Auftragszeile in der Spalte "HO" (223) sondern immer in Zeile 1 (Zelle HO1) hochgesetzt wird.
Könnt ihr hier helfen? Was muss ich hier anpassen?
Gruß Ralf
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Artikel As String 'Hilfweise auch integer etc.
Dim Zaehler As Integer
Dim ZeileMitArtikel As Integer
Artikel = Worksheets("Vorb.").Cells(2, 2)
'Algorithmus zur Suche der richtigen zeile, hier einfach mit for next, Artikelnr in Spalte B
For Zaehler = 1 To 20000
If Worksheets("Aufträge").Cells(Zaehler, 2) = Artikel Then
ZeileMitArtikel = Zaehler
Exit For
End If
Next
Zaehler = Worksheets("Aufträge").Cells(ZeileMitArtikel, 223)
Zaehler = Zaehler + 1
Worksheets("Aufträge").Cells(ZeileMitArtikel, 223) = Zaehler
End Sub