|
Hallo zusammen,
ich benötige bitte Unterstützung bei meinem Code.
Das ganze ist egtl. recht simpel. Der Makro soll Personendaten aus einer Tabelle in ein Berechnungstool einfügen und dann die Ergbenisseiten drucken + das ganze unter einem neuen Namen speichern.
Es handelt sich um Daten von mehreren Personen, je Zeile eine Person mit den dazugehörigen Daten.
Hier mein Code:
---------
Private Sub CommandButton1_Click()
Dim DateiName As String
Dim path As String
DateiName = Worksheets("Makros").Range("A1").Value
path = ActiveWorkbook.path + DateiName
'Name
Sheets("40 b FINAL").Range("A2").Copy
Sheets("Eingaben").Range("D5").PasteSpecial xlPasteValues
'Geburtsdatum
Sheets("40 b FINAL").Range("C2").Copy
Sheets("Eingaben").Range("D7").PasteSpecial xlPasteValues
'Diensteintrittsdatum
Sheets("40 b FINAL").Range("G2").Copy
Sheets("Eingaben").Range("D11").PasteSpecial xlPasteValues
' speichern
ActiveWorkbook.SaveAs path
'drucken
Sheets("Eingaben").PrintOut
Sheets("Steuerliche Auswirkungen").PrintOut
End Sub
------------
Es funktioniert auch. Nun komme ich jedoch nicht drauf, wie ich eine vernünftigte Schleife einbaue. Das Makro soll diesen Vorgang im Prinzip direkt wiederholen, für die Person deren Daten in der Zeile darunter (also in Zeile 3) stehen. Und dann immer wieder, bis eine Zeile mit der Nummer erreicht ist, die ich vorher angebe, dann soll der Prozess enden.
Meine Idee wäre, eine Schleife einzubauen bei der die Zellen-Nr. von jedem zu kopierenden Wert, z. B. für den Namen Range("A2") jeweils +1 gerechnet wird. Er im nächsten Durchlauf den Wert also aus A3 zieht und so weiter. Bis z. B. A100 erreicht ist.
Ich weiß nur nicht, wie ich das in den Code einbaue. Ist wahrscheinlich gar nicht so kompliziert. Kann mir das jemand helfen???
Achja, und es gibt noch das Problem, dass er die Datei zwar unter neuem Namen speichert, aber dann auch die Ursprungsdatei schließt. Egtl soll es so aussehen, dass er es unter einem neuen Namen speichert, jedoch diese Datei dann nicht öffnet. Ist das auch machbar? Er wird ja im Laufe des Prozesses ca. 100 Dateien speichern. Diese sollen nach Möglichkeit in einem speziellen Ordner abgelegt werden. Aktuell speichert er es auf dem Desktop...
Ich wäre für Hilfe wirklich dankbar!
Viele Grüße
|