Office: Zelle kopieren --> einfügen im loop für darauffolgende Zellen

ToM201 · 29. Februar 2016

Hallo zusammen,

ich habe in Spalte A eins Arbeitsblatts mehrere unterschiedliche Einträge.

- Ich möchte, dass beginnend mit Zelle A2 diese kopiert wird.
- In Zelle B3 eines anderen Arbeitsblattes eingefügt wird.
- zwei weitere makros ausgeführt werden
- jetzt sollte eine kleine Pause folgen, da über diese beiden makros dokumente abgespeichert und gedruckt werden (ich gehe einfach nur davon aus, dass das sinnvoll ist)
- anschließend dann Zelle A3 kopieren
- Wieder in die gleiche Zelle B3 eines anderen Arbeitsblattes einfügen
- wieder die beiden makros ausführen
- usw. bis zu einer leeren Zelle in Spalte A

Was ich mit dem recorder aufgenommen habe sieht wie folgt aus:
Code:

Sheets("Partner").Select
Range("A2").Select
Selection.Copy
Sheets("Eingaben").Select
Range("B3").Select
ActiveSheet.Paste

Application.Run "'XXX.xlsm'!Übernehmen"

Application.Run "'XXX.xlsm'!SpeichernDrucken"

Sheets("Partner").Select
Range("A3").Select
Selection.Copy
Sheets("Eingaben").Select
Range("B3").Select
ActiveSheet.Paste

Application.Run "'XXX.xlsm'!Übernehmen"

Application.Run "'XXX.xlsm'!SpeichernDrucken"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie muss das aussehen, wenn ich nicht jedes mal die Zellen in Spalte A einzeln definiere. Sondern z.B. im Loop immer zur nächsten Zelle in Spalte A springe bis eine leer ist?

Besten Dank schonmals für eure Hilfe.

:)

FreeCell · 2. März 2016

Code:

Sub test()
Dim lZähler As Long
Dim sStart As Single 'Optional

lZähler = 2

'Startet Schleife bis in Zeile lZähler (momentan 2!) und Spalte 1 eine leere Zeile ist
Do Until Sheets("Partner").Cells(lZähler, 1) = ""
'überträgt den Wert der aktuellen Zelle zu Zelle B3 in Mappe "Eingaben"
Sheets("Eingaben").Range("B3") = Sheets("Partner").Cells(lZähler, 1)

'denke mal das du aus dieser Mappe drucken willst und deshalb ausgewählt
'sein muss. Ansonsten kannst du das hier einfach löschen
Sheets("Eingaben").Select

'Befinden sich deine Makros in der selben Datei kannst du diese
'auch einfach mit ihren Namen aufrufen

'übernehmen
'speicherndrucken

'anstatt
Application.Run "'XXX.xlsm'!Übernehmen"
Application.Run "'XXX.xlsm'!SpeichernDrucken"

'Die Pause dürfte ziemlich unnötig wenn nicht sogar kontraproduktiv sein.
'habs dir aber natürlich spaßeshalber trotzdem mal reingepackt
sStart = Timer
Do Until Timer > sStart + 2 'Sekunden
DoEvents
Loop

'Zähler wird erhöht damit beim nächsten mal die nächste Zeile angesprochen wird
lZähler = lZähler + 1

'nächster Schleifenaufruf
Loop

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Yo,

hier der Code zum rüberkopieren + ein paar Randbemerkungen zum Schleifen selber bauen.
Gib bescheid obs passt...

Greetz Nik

ToM201 · 2. März 2016

Funktioniert einwandfrei! Ebenfalls danke für die Anmerkungen, zum Nachvollziehen perfekt.

Office: Zelle kopieren --> einfügen im loop für darauffolgende Zellen

Zelle kopieren --> einfügen im loop für darauffolgende Zellen

Zelle kopieren --> einfügen im loop für darauffolgende Zellen

Zelle kopieren --> einfügen im loop für darauffolgende Zellen - Similar Threads - Zelle kopieren einfügen

Nur markierte Zellen kopieren und wieder einfügen

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Wert in Zelle kopieren und in nächster freie Zelle einfügen

VBA Makro, einzelne Zellen kopieren und in fortlaufende Zeile einfügen

Gefilterte Zellen kopieren und in anderer Tabelle einfügen

VBA dyn. Zellen kopieren und am ende der Liste einfügen

Daten kopieren und in nächste frei Zelle einfügen