Re: Nein, ich will nur ein stabileres Copy/Paste
02.09.2002 19:05:42
Anugyan
Hi Maria,
nur so mal als Idee: wenn du im Sub Worksheet_SelectionChange
If Application.CutCopyMode = True Then ...
überprüfst ob gerade nach dem Kopieren etwas in der Zwischenablage ist, kannst du dieses sichern und weiterbearbeiten.Eine andere Idee, die ich einmal für einen Teilbereich("Plan")eines Tabellenblattes verwirklicht habe: der Anwender doppelklickt auf die Zelle die er kopieren möchte und beim nächsten klick im zulässigen Bereich des "Plans" wird der Wert eingefügt. (Wenn Auswahlbereich und Zielbereich immer gleich groß sind, läßt sich der Kopiervorgang auch auf mehere Zellen gleichzeitig per Makro erweitern).
Public cFlag As Boolean, vntZwiWert, objZwiAdr As Range
Sub Worksheet_SelectionChange(ByVal Target As Range)
If cFlag = False Then Exit Sub
If Not Intersect(Range("Plan"), Target) Is Nothing Then
cFlag = False
Target.Value = vntZwiWert
End If
End Sub
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("Plan"), Target) Is Nothing Then
cFlag = True 'Spezialkpiermodus
Cancel = True 'keine Zellbearbeitung nach Doppelklick
Set objZwiAdr = Target
vntZwiWert = objZwiAdr.Value
End If
End Sub
Vielleicht beschreibst du auch nochmal genau, wo und wie bei den Anwendern etwas beim Kopieren verloren geht.
Gruss Anugyan