Supportnet / Forum / Tabellenkalkulation

Es sollen z.B. 50 Palettenfahnen mit einer fortlaufenden Nummer gedruckt werden, wobei sich nach jedem Ausdruck der Palettenfahne der Wert um 1 erhöhen soll, sodaß ich am Ende 50 Paletten-fahnen mit einer Nummerierung von 1..50 erhalte. In einer Mappe habe ich verschiedene Register mit Palettenfahnen-Namen angeleget. Schön wäre es, wenn ich dieses Makro, egal in welchem Register ich befinde, anwenden kann.

Hallo Heinz Günter,

ich bin leider nicht der Makro/VBA-Spezialist.
Aber wie wäre es als Alternative, die Sache mit der Serienbrieffunktion von WORD und einer Excel-Tabelle als Steuerdatei zu lösen?
Sorry, dass ich keine bessere Lösung vorschlagen kann.

CU
want2cu

Hallo
CU
want2cu,

danke für den Tip. Der Anwender im Betrieb ist so versiert in Excel/Word, sodaß eine Lösung als Makro schon nett wäre.

Gruß
Heinz-Günter

Hallo
CU
want2cu,

sorry, ich meinte der Anwender ist nicht....


Gruß Heinz-Günter

hi heiz :)

vielleicht in die richtung :)

gruss nighty

einzufuegen alt f11(vbeditor)/einfuegen/modul

Public zaehler As Integer

einzufuegen alt f11(vbeditor)/projektexplorer/DieseArbeitsmappe

Private Sub Workbook_BeforePrint(Cancel As Boolean)
zaehler = zaehler + 1

rem zaehler max ist 50

If zaehler = 51 Then zaehler = 1

rem ausgabe in zelle A1

Range("A1").Value = Str(zaehler) & " Stapel a " & ExecuteExcel4Macro("Get.Document(50)")
End Sub

Hallo nighty,

danke für diese Makro!

In der Praxis muss ich Palettenfahnen in unterschiedlichen Mengen ausdrucken.
Frage: Kannst Du diese Makro so einrichten das ich eine variable Stückzahl eintragen kann.
z.B. Drucke Palettenfahnen mit einer laufenden Nummerierung von 1 bis ... aus?

Vielen Dank vorab für Deine Mühe.

hi heinz :

so vielleicht :)

gruss nighty

Public zaehler As Integer
Public zaehler1 As Integer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If zaehler = 0 Then
zaehler1 = Val(InputBox("Bitte geben Sie den Maximalwert des Stapelzählers an !"))
End If
If zaehler1 = 0 Then
Cancel = True
End
End If
zaehler = zaehler + 1
Range("A1").Value = Str(zaehler) & " Stapel a " & ExecuteExcel4Macro("Get.Document(50)")
If zaehler = zaehler1 Then
zaehler = 0
zaehler1 = 0
End If
End Sub

• Standard Nummerierung über Symbolleiste festlegen
• Tabelle als pdf speichern UND ausdrucken
• Automatische Nummerierung in Excel
• kann Word Excel und Works nicht ausdrucken, Photos Paint etc problemlos
• Excel Druck markierter Arbeitsblätter