Excel-Stapelverarbeitung

Computer: Software & Programmierung Visual Basic
#1

Hallo,

da ich von VBA oder Makro’s leider nicht viel Ahnung habe, hoffe ich, dass Ihr mir helfen könnt:

Also, ich habe in einer Excel-Datei jede menge Zahlen (13-Stellig). Diese sollen in eine zweite Excel-Datei in das Feld B3 nach und nach eingetragen werden und das Arbeitsblatt jedesmal dann gedruckt werden. Ich kann die Liste der Zahlen natürlich auch in die gleiche Arbeitsmappe kopieren, das wäre nicht das Ding!

Ich weiß zwar, dass es mit einer For-Schleife geht, aber wie gesagt, von VBA hab ich leider keinen schimmer.

VG

Jens

Edit: Ist es möglich, die Zahlen mit einer Bedingung zu kopieren? Soll heißen: Wenn(B2 = „Ja“;‚Tabelle1‘!$B$3=A2;[Zähler um 1 erhöhen]) und das dann drucken und mit der nächsten Zeile (3) weiter machen.

#2

Also, ich habe in einer Excel-Datei jede menge Zahlen
(13-Stellig). Diese sollen in eine zweite Excel-Datei in das
Feld B3 nach und nach eingetragen werden und das Arbeitsblatt
jedesmal dann gedruckt werden.

Hallo Jens,

im nachfolgenden Code habe ich dir gefettet was du ggfs. anpassen
mußt. Zum Testen kannste ja anstatt Printout erstmal Printpreview
benutzen.

Gruß
Reinhard

Option Explicit

Sub EinfuegenDrucken()
Dim wks1 As Worksheet, wks2 As Worksheet, Zei As Long
Set wks1 = ThisWorkbook.Worksheets(" **Tabelle1**")
Set wks2 = Workbooks(" **Mappe2**").Worksheets(" **Tabelle1**")
With wks1
 For Zei = **1** To .Cells(.Rows.Count, " **A**").End(xlUp).Row
 .Cells(Zei, " **A**").Copy wks2.Range("B3")
 wks2.PrintOut
 Next Zei
End With
End Sub