Mit diesem Code (natürlich von Herber-CD)
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 = Tabelle2
Workbooks.Open Filename:=sfile
'Worksheets("175802").Select
iRowS = wks.Cells(Rows.Count, 2).End(xlUp).Row
'If IsEmpty(Range("b1")) Then
' iRow = 1
'Else
iRow = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1
wks.Rows(iRowS).Copy Rows(iRow)
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = False
End Sub
Mein Problem ist folgendes.
Meine Datei hat 3 Tabellenblätter und die Kopierten Daten sollen
auch in 3 Tabellenblätter.
Wie, bitte, muss ich den Code ändern.
Gruss Erich