Wie kann ich es schaffen, das "wenn verfügbar" der inhalt von tabelle2 unter dem inhalt von tabelle1 kopiert wird? Und wenn verfügbar tabelle3 wieder unter dem eben eingefügt teil.
Vielen dank für eure Hilfe!
mfg Martin S.
Sub zusammen()
Dim a, b, c As Long
For a = 2 To Sheets.Count
For b = 1 To Sheets(a).Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets(a).Rows(b).Copy
Sheets(1).Rows(c).Insert
Next b
Next a
End Sub
Sub zusammen()
On Error Resume Next
Dim a, b, c As Long
For a = 2 To Sheets.Count
For b = 1 To Sheets(a).Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets(a).Rows(b).Copy
Sheets(1).Rows(c).Insert
Next b
Next a
End Sub