Huhu,
ich weiß nicht mal, ob dieses möglich ist.
Ich habe Folgende Excel Datei (Muster Angehängt)
Das Tabellenblatt "Frisch" wird ausgedruckt.
Oben Rechts Zelle G1/G2 soll eine Fortlaufende Nummerrierung hin.
Aber dies soll unterschieden werden. Jedes Kürzel (z.B. L) soll je mit jedem Produkt eine eigene fortlaufende Nummer haben.
Bsp.
Ich drucke 3 x Ohren von L
(L1 Ohren, L2 Ohren, L3 Ohren)
dann drucke ich 1 x Ohren von E
(E1 Ohren)
Dann drucke ich 2 x Schnauzen von E
(E1 Schnauzen, E2 Schnauzen)
dann drucke ich wieder 2x Ohren von L
(L4 Ohren, L5 Ohren)
Ist dies überhaubt möglich?
hallöchen,
trage in der Zelle nur die Zahl ein und formatiere sie Zelle benutzerdefiniert mit dem L, sodass Du dort z.B. L1 siehst.
Vor dem Drucken kannst Du die Zahl mit einem Ereignismakro erhöhen - das kommt in das Codemodul von DieseArbeitsmappe. Hier mal als Beispiel mit A1:
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") + 1
End Sub
Hinterher musst DU noch speichern - könnte man auch noch in das Makro einbauen - sonst vergisst die Datei ja die hochgezählte Zahl.
Das Problem ist ja, dass ich je Produkt und je Firma eine eigene Zählung benötige.
Sprich
Ohren: L1 E1
L2 E2
L3 E3
Schnauzen L1 E1
L2 E2
L3 E3
Ich habe nun ein neues Tabellenblatt hinzugefügt und einen Druck Button.
Mein Gedanken weg dahinter:
In G1/2 wird eine Formel Hinterlegt (ich weiß noch nicht welche) die anhand von der Zelle F1/2 und (Zeile) 10 die entsprechende Spalte in dem Tabellenblatt Datenbank raussucht. Und dann auch noch in der ermitteltet Spalte den letzten Wert wiedergibt. ( Vermutlich mit Hilfszellen)
Wenn man jetzt auf den Butten "Drucken" geht, wird einmal gedruckt und dann der wert aus G1/2 entsprechend in "Datenbank" gespeichert. Dieser vorgang wiederholt sich so oft, wie dann vor dem "Druck" Button ausgewählt wurde. (aktuell wären das also 10 mal)
Da harpert es aber auch an allen ecken und kanten :D
Aber es wäre zumindest schon mal ein möglicher lösungsansatz, der auch so umzusetzen sein müsste.
Hallöchen,
dann speicherst Du die Zahl zu jeder Kennung auf dem Datenblatt und holst sie Dir per SVERWEIS von dort.
Im BeforePrint könntest Du dann entweder fest programmiert oder per Suche nach der Kennung die Zahl erhöhen, hier z.B. mal die feste Variante:
Code:
'...
With Sheets("Daten")
Select Case Cells(1,6).Value
Case "L": .Cells(2,6).Value = .Cells(2,6).Value + 1
Case "D": .Cells(3,6).Value = .Cells(3,6).Value + 1
'... usw.
End Select