Mit Makro kopieren
31.01.2003 15:02:44
Gunter
Aus einer Tabelle möchte ich den Curser auf eine beliebige Zelle setzen. Mit bearbeiten, kopieren den Inhalt in die Zwischenablage kopieren. Mit einem Gehezu Befehl in eine andere Tabelle wechseln. Der Gehezu Befehl führt zu einem Bereich A: Zeile 1000. Dann möchte ich mit einem Ende oben Befehl, nach oben gehen. Dann muß ich aber wieder eine Zeile nach unten springen, damit ich nicht den letzten Datensatz überschreibe.
Diesen Makro habe ich mir aufzeichnen lassen:
Selection.Copy
Application.Goto Reference:="kopie"
Selection.End(xlUp).Select
Range("B5").Select
ActiveSheet.Paste
End Sub
Aber hier habe ich das Problem, das immer nur in die Zelle B5 kopiert wird. Ich möchte aber, das der Eintrag immer unten angefügt wird. Wer kann mir hierzu einen Tipp geben?