Sehr geehrte Damen und Herren,
ich ( Neuling ) bin beim versuch dabei, aus einem Bereich die letzte geänderte Zelle auszulesen und diese samt Farbhinterlegung in eine andere Tabelle zu kopieren. Allerdings klappt bei meiner Anwahl nicht der gewünschte Bereich :( Hier erstmal mein Code :
Sub Workbook_Open() '** Namenloser test
'** Variablen Definition
Dim r, r1 As Range
Set r = Sheets("Tabelle1").Range("A:A").SpecialCells(xlCellTypeLastCell) '**sucht letzte Zelle raus
Set r1 = Sheets("Tabelle3").Range("A1") '**zielpfad wo hinkoppiert werden soll
'** ToDo : Kopieren und einfügen
r.Copy
r1.PasteSpecial xlPasteValues '** Kopiert den Wert
r1.PasteSpecial xlPasteFormats '** Kopiert das Format (also auch die Farbe)
Application.CutCopyMode = xlCut
Range("A:A").SpecialCells(xlCellTypeLastCell).Select
End Sub
Es passiert folgendes : Er kopiert sich den zuletzt eingegebenden Wert aus Tabelle 1, und fügt diesen samt der entsprechenden Farbhinterlegung in Tabelle 3 ein. Aber wie gesagt, wünsche ich ja nicht, dass er die komplette Tabelle 1 nach der letzten Änderung durchsucht. Sondern nur aus Tabelle 1, den kompletten bereich A:A nach der letzten Änderung.
Habe es auch schon mit bereichsdefinition versucht und A:A entsprechend als "Test" benannt und bei der Range suche dann Range("Test") ausprobiert,leider das selbe Ergebniss, nach 3 stunden im forum suchen und nicht schlauer werden, erhoffe ich mir nun einen denkanstoß, was ich hier übersehen habe.
Vielen lieben Dank schonmal für Eure Hilfe / Mühen und bis bald :)
Euer anfänger, Chris
|