|
Hallo,
ich habe ein Problem und vielleicht koennt ihr mir weiter helfen.
Und zwar habe ich 2 Tabellen.
ich moechte jetzt den Inhalt von z.B. Tabelle1 A10 nach Tabelle2 A1 kopieren dann wenn ich Tabelle1 A10 aender moechte ich den Wert in Tabelle2 A2 kopieren und so weiter. Die Werte in Tabelle1 A10 werden dann aber immer geloescht, die Werte in Tabelle2 nicht.
Das Kopieren abe ich schon so weit. Hier wird zuerst der Wert in BV14 Kopiert und dann geloescht.
Private Sub Loeschen9()
'Bereich kopieren
Sheets("Quiz").Range("BV14").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Auswerten").Cells(Rows.Count, 18).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
'Loeschen
Range("BW6:CB6,BW7:CB7,BW8:CB8,BW9:CB9,BW10:CB10,BW11:CB11,BW12:CB12,BW13:CB13,BW14:CB14,BW15:CB15,BV14").ClearContents
End Sub
Wenn ich jetzt aber 10 Werte kopiert habe moechte ich das das kopieren wieder von vorne beginnt, sprich beim 11 mal Kopieren nicht in Tabelle2 A11 sondern Tabelle2 A1 also den alten Wert ueberschreiben und dieses dann auch wieder 10 mal.
Vielleicht ist das ja machbar.
LG
Kai
|