Uebertrag

mit folgendem Code Wähle ich Daten aus

Sub Auswahl2()
Cells(Cells(1, 3), 1).Select
End Sub

und mit folgendem Code übertrage ich Daten in eine andere Tabelle.

Sub Uebertrag2()
Range(Cells(Cells(1, 3), 1), Cells(Cells(1, 3), 100)).Copy Sheets("Tabelle2").Cells(2, 1)
End Sub

Nun mein Anliegen ich möchte mehrere Daten-Zeilen zum Beispiel 1-5 oder 6-10 per Nummer Auswählen und Übertragen, und wenn DatenZeile Übertragen ist dann Ausdruck.

Etwa so:

Datenreihe 1 Übertrag in Tabelle2 Angekommen dann Ausdruck

dann

Datenreihe 2 Übertrag in Tabelle2 Angekommen dann Ausdruck

dann

Datenreihe 1 Übertrag in Tabelle2 Angekommen dann Ausdruck

und so weiter.... Einfach Automatisch

Udo