Zeilen kopieren
16.08.2005 17:39:08
Erich
Habe folgenden Code bekommen der perfekt ist.
Sub DatenKopie()
Dim wks
Dim iRow As Integer, iRowS As Integer
Dim sfile As String
Application.ScreenUpdating = False
sfile = "c:\test\Versuch.xls"
If Dir(sfile) = "" Then
Beep
MsgBox "Testdatei wurde nicht gefunden!"
Exit Sub
End If
Set wks = Tabelle5
Workbooks.Open Filename:=sfile
Worksheets(1).Select
iRowS = wks.Cells(Rows.Count, 2).End(xlUp).Row
iRow = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1
wks.Rows(iRowS).Copy Rows(iRow)
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
Frage, ist es möglich die Zeile nur bis Spalte K
zu kopieren? Denn in der Spalte M stehen Kommentare die
nicht mitkopiert werden sollen.
Gruss Erich
Anzeige