Hey,
ich habe ein kleines VBA Problem. Ich bin dabei, Daten von 3 Tabellen auf eine Tabelle zu übertragen. Das klappt auch alles, aus meiner Sicht sehr gut, wobei ich leider das Problem habe, dass ich das über die insert Funktion macht und dementsprechend Daten, die rechts davon steht, nach rechts verdrängt - Ist wirklich nicht sehr cool und stört mich :-(
Falls ihr mir helfen könntet, dass ich die Daten der Tabellen ohne Verdrängen übertragen kann, wäre das echt klasse - ich mache, aus meiner Sicht, echt VBA-Fortschritte, aber meine Grenzen sind manchmal dann doch schneller da, als ich hoffe :D
Hier der Code:
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
Row = 0
Row = Row + 1
Do While Cells(Row, 1).Value ""
Row = Row + 1
Loop
Sheets("Antonio").Select
ARow = ARow + 1
Do While Cells(ARow, 1).Value ""
ARow = ARow + 1
Loop
Range(Cells(2, 1), Cells(ARow, 4)).Select
Selection.Copy
ARow = ARow + Row - 2
Sheets("Alle").Select
Range(Cells(Row, 1), Cells(ARow, 4)).Insert
Row = 0
Row = Row + 1
Do While Cells(Row, 1).Value ""
Row = Row + 1
Loop
Sheets("Max").Select
MRow = MRow + 1
Do While Cells(MRow, 1).Value ""
MRow = MRow + 1
Loop
Range(Cells(2, 1), Cells(MRow, 4)).Select
Selection.Copy
MRow = MRow + Row - 2
Sheets("Alle").Select
Range(Cells(Row, 1), Cells(MRow, 4)).Insert
Viele Grüße und vielen Dank
Darius