Office: Kundennummer in Sverweis Zelle fortlaufend einfügen und drucken (VBA)

Hallo und danke schon mal, ich benötige eure Hilfe.

Ich habe eine Excel Liste mit der ich Kunden anlege. Mithilfe einer zugeordneten Kundennummer wird mit einem Sverweis ein Dokument ausgefüllt, mit den benötigten Daten gefüllt und im Anschluss ausgedruckt.

ich möchte nun, wenn die Kunden angelegt worden sind, nicht jede einzelne Kundennummer in die Zelle eintragen, auf die der Sverweis zugreift, und auf drucken drücken, sondern würde gerne für die neu angelegten Kunden der Liste einen automatischen Ausdruck realisieren.

es wäre schön wenn man irgendwie sagen kann füge den Zellen wert, der aktiven Zelle in die Zelle mit Sverweis und Drucke, im Anschluss Prüfe ob Zelle darunter leer, wenn nicht leer dann füge den Wert der nächsten Kundennummer ein und drucke usw.

ich hoffe ihr könnt mir helfen.
Schöne Grüße und danke

 

Hi,

im Prinzip könnte man dir schon helfen - allerdings muss man dazu deinen Datei-/Tabellenaufbau kennen. Lade doch mal eine anonymisierte Beispielmappe hoch.

---

 

Moin!
Mal auf die Schnelle zusammen geklöppelt.
Anpassen wirst Du wohl können.

Code:

Sub Ausdruck()
Dim Zelle As Range
For Each Zelle In Worksheets("Liste").Range("A2:A20")
  With Worksheets("Formular")
    .Range("B2") = Zelle
    .PrintOut
  End With
Next
End Sub

Gruß Ralf