VBA Daten kopieren
25.05.2020 18:39:48
Dietmar
seit Tagen beschäftigt mich folgendes Problem:
Ein bestehender Tabellenbereich (Tab1) soll in ein neues Tabellenblatt (Tab2) kopiert werden.
Tab 1 ist in meinem Fall eine Tabelle die mit Messdaten gefüttert wird, welche zuvor berechnet wurden etc. Diese Daten sollen zur Aufbereitung und Dokumentation nun in Tab 2 kopiert werden.
In Tab 2 sollen die Daten aber nicht bei jedem Kopiervorgang überschrieben werden, sondern jeweils in eine neue Spalte, rechts der alten, eingefügt werden.
Ein Script habe ich schon einmal zusammnegeschustert. Es macht das was ich will, allerdings nur nach unten und nicht nach rechts.
Würde mich riesig freuen, wenn ein Profi einem DAU helfen könnte.
Hier mein Script:
Sub Auswertung_Vergleich()
With Worksheets("Auswertung Vergleich")
Worksheets("Auswertung").Rows("7:12").Copy
.Cells(IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + _
_
_
_
0, 1).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub
Dieses habe ich auch schon umgeschrieben (versucht). Nur kopiert es genau ein mal und dann geschieht nichts mehr.
Script:
Sub Auswertung_Vergleich()
With Worksheets("Auswertung Vergleich")
Worksheets("Auswertung").Range("a7:b12").Copy
.Cells(IIf(IsEmpty(.Cells(.Columns.Count, 1)), .Cells(.Columns.Count, 1).End(xlToLeft).Column, . _
_
_
_
Columns.Count) + 0, 1).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub
Vielen Dank im Voraus für die freundliche Hilfe im Voraus.
Grüße
Dietmar