Quellbereich beim kopieren
10.10.2007 06:39:00
Oliver
die Anwender können z.B. ganze Zeile kopieren oder aber nur Bereich kopieren (z.B. worksheets(1).range("A4:C4")). Diese wählt er selbst aus und kopiert (strg+v/Menü).
Nun geht er in ein anderes Blatt und fügt dort wieder ein. Nur eventuell an einer falschen Stelle (z.B. worksheets(2).range("C4:E4")).
Da hier auch einige geschützte Zellen dabei sind, kann theoretisch nicht eingefügt werden. Ich löse das ganze bisher so:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
sh.unprotect
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.undo
'****hier fehlt das einfügen****
sh.protect
End Sub
Nun möchte ich aber den Quellbereich auslesen und dann "von Hand" per VBA nur die nicht geschützten Zellen kopieren. Und hierzu müsste ich wissen, welches denn der Quellbereich des Einfügens war.
Gibt es hier eine Möglichkeit?
Gruß,
Oliver.