Hey,
ich habe eben gesehen, dass ich, den Code nicht komplett kopiert hatte - sorry.
Nochmal kurz das Problem umrissen: Ich möchte aus 3 Tabellen die Daten in eine Tabelle nacheinander übertragen. Dazu nutze ich die "Kopieren"-Funktion, wodurch die restlichen Zellen nach rechts verschoben werden. - Das möchte ich nicht, könnt ihr mir dabei bitte helfen? - Sorry für den Spam und vielen Dank für Hilfe.
Hier der Code (Auf eine Tabelle beschränkt):
Dim Row As Integer
Dim Col As Integer
Dim RRow As Integer
Dim ARow As Integer
Dim MRow As Integer
Row = 0
Row = Row + 1
Do While Cells(Row, 1).Value ""
Row = Row + 1
Loop
Sheets("Robert").Select
RRow = RRow + 1
Do While Cells(RRow, 1).Value ""
RRow = RRow + 1
Loop
Range(Cells(2, 1), Cells(RRow, 4)).Select
Selection.Copy
RRow = RRow + Row - 2
Sheets("Alle").Select
Range(Cells(Row, 1), Cells(RRow, 4)).Insert
End Sub