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