Kopieren von Daten

Computer: Software & Programmierung Visual Basic
#1

Problem: Bei diesem Programm wird lediglich die letzte Aktive Zelle kopiert und in ein neues Tabellenblatt eingefügt.
Es sollen jedoch auch alle anderen Zellen der Schleife mit in das neue Tabellenblatt eingefügt werden.

Wie kann ich das machen??

Hintergrund: Das Programm besteht aus cirka 200 Zeilen, in denen Namen stehen. als vorderste Spalte (ab Feld C8) steht ein Datum. Die schleife soll so lange durchlaufen werde, bis ein bestimmtes Datum ( 31.12.2004 erreicht wird. Alle Daten die bis dahin durchlaufen worden sind, sollen in eine neue Tabelle geschrieben werden.

Private Sub cmdlöschen_Click()

Range(„C8“).Activate

Do

ActiveCell.Offset(1, 0).Select
Selection.Copy

Loop Until ActiveCell.Value > 38350

Selection.Copy
Workbooks.Open FileName:="\Z001SF0001\altdaten\ORGA\test\Testdatei2.xls"
ActiveSheet.Paste

End Sub

#2

Private Sub cmdlöschen_Click()
dim bis_zeile as long

Range(„C8“).Activate

Do

ActiveCell.Offset(1, 0).Select

Loop Until ActiveCell.Value > 38350

bis_zeile = activecell.row-1

range(cells(,),cells(bis_zeile,)).select

Selection.Copy
Workbooks.Open
FileName:="\Z001SF0001\altdaten\ORGA\test\Testdatei2.xls"
ActiveSheet.Paste

End Sub

Die sind nur Stellvertreter für die echten Werte, die du dort einsetzen mußt.

„bis_zeile“ habe ich als echte Variable definiert. Das kannst du 1:1 übernehmen.

lg Maria