Habe mich etwas verrannt und komme einfach nicht weiter.
Ich möchte die letzte; im Moment die 26 Zeile einer Tabelle in die nächste freie Zeile einer anderen Tabelle kopieren --> in eine andere Arbeitsmappe.
Das funktioniert auch, nur leider nicht in die nächste freie sondern ganau in dieselbe Zeile +1
Den Code hab ich mir zusammengesucht und der sollte so auch gehen ?
Sub ü2Seckel()
Dim wks
Dim iRow As Integer, iRowS As Integer
Dim sfile As String
Application.ScreenUpdating = False
sfile = ThisWorkbook.Path & "\alleGL1.xls"
If Dir(sfile) = "" Then
Beep
MsgBox "Testdatei wurde nicht gefunden!"
Exit Sub
End If
Set wks = ActiveSheet
Workbooks.Open Filename:=sfile
Worksheets("Tabelle1").Select
iRowS = wks.Cells(Rows.Count, 1).End(xlUp).Row
If IsEmpty(Range("A1")) Then
iRow = 1
Else
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
wks.Rows(iRowS).copy Rows(iRow)
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = False
End Sub
leider fehlt mir etwas das Hintergrundwissen könntet Ihr mal drüberschaun?
Gruß Thomas B. aus P.