Makro zum kopieren von Zeillen ändern Bitte helft
04.11.2004 18:56:13
olaf
bisher wurde mit nachstehendem Makro die Zeilen von einer Datei in eine andere Datei kopiert.
Wer kann mir das Makro ändern, wenn ich die Zeilen innerhalb einer Datei in ein anderes Tabellenblatt kopieren möchte?
Zeilen sollen jetzt aus Tabellenblatt "Aenderung" in Tabellenblatt "Archiv" kopiert werden.
Sub copy_Data()
Dim wb1 As Workbook, wks1 As Worksheet
Dim wb2 As Workbook, wks2 As Worksheet
Dim wbo As String
Dim wksr1 As Long, wksr2 As Long
'kopiert alle Inhalte der Zeile n bis n+1 in den angegebenen Pfad
wbo = "C:\ALWIN\Aenderung\Archivierung.xls" 'Pfad zur Datei 2 anpassen
Set wb1 = ActiveWorkbook 'Datei "ArchivAenderung.xls"
Set wb2 = Workbooks.Open(wbo) 'Datei "Archivierung.xls"
Set wks1 = wb1.Worksheets("Archiv") 'Namen bitte anpassen
Set wks2 = wb2.Worksheets("Archiv") 'Namen bitte anpassen
'Datenbereich der kopiert werden muss auslesen
wksr1 = wks1.Cells(65536, 1).End(xlUp).Row
'Kopiervorgang beginnen
wks1.Rows("2:" & wksr1).Copy Destination:=wks2.Rows(Cells(65536, 1).End(xlUp).Row + 1)
'Datei 2 schliessen
wb2.Close True
'Daten in aktiver Tabelle löschen
wks1.Rows("2:" & wksr1).Delete
'Kopiert Daten aus Aenderung in Prod
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Da meine Kenntnisse nur mangelhaft bis ausreichend sind freue ich mich über jede Hilfe.
Gruß
Olaf
Anzeige