Text zwischenspeichern und wieder zurückschreiben
15.10.2015 11:42:19
Nilix
Ich habe eine recht große Excel Tabelle, hier als Excel Datei AA bezeichnet, die täglich komplett neu geladen wird und wo in der Spalte A eine einmalige ID steht. Beim Laden über VBA Code werden alle Daten in Excel Datei AA erst gelöscht, eine andere Excel Tabelle geöffnet, die Daten dort Kopiert und dann in Excel Datei AA geschrieben.
Das Problem ist nun das Excel Datei AA eine Arbeitsdatei ist wo Bemerkungen/Notizen reingeschrieben werden sollen die natürlich erhalten belieben müssen. Das funktioniert mit meinem jetzigen Ansatz allerdings nicht.
Nun habe ich zwei Möglichkeiten: Entweder die Daten in Excel Datei AA mit der anderen Excel Datei zu vergleichen und die veränderten Inhalte upzudaten. Hierzu sind meine VBA Kenntnisse fast zu schlecht, außer jemand hätte einen verständlichen Code, denn das wäre die eleganteste Lösung.
Oder ich füge per vba erst eine Spalte zur Bemerkung ein die ich vor der Aktualisierung in ein anderes Tabellenblatt (oder vielleicht in eine Variable) Schreibe/Kopiere und wieder lösche, dann die Aktualisierung laufen lasse und danach müssen die Daten wieder in die wieder eingefügte Bemerkung spalte zurückgeschrieben werden.
Uff ich hoffe meine Erklärung ist verständlich ^^
Sheets("Bemerkung").Select
Columns("A:B").ClearContents
Sheets("Status").Select
Range("A:A,J:J").Copy
Sheets("Bemerkung").Select
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
_
False
Das ist mein jetziger Code um einfach die Daten, also Spalte A mit der ID und Spalte J mit der Bemerkung, in das andere Tabellenblatt zu bekommen.
Aber wie bekomme ich nun die Bemerkung wieder zurück in Spalte J in die Zeile mit der richtigen ID geschrieben?
Hoffe Ihr könnt mir helfen.
Nilix