Excel: Zwischenablage ist gleich wieder weg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Sub Worksheet_Change(ByVal Target As Range) Dim RaBereich, RaBereich2 As Range, RaZelle, RaZelle2 As Range Application.CutCopyMode = xlCopy Application.CutCopyMode = True Set RaBereich = Range("R7:R3000") Set RaBereich = Intersect(RaBereich, Range(Target.Address)) Set RaBereich2 = Range("Q7:Q3000") Set RaBereich2 = Intersect(RaBereich2, Range(Target.Address)) If Not RaBereich Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For Each RaZelle In RaBereich With RaZelle If RaZelle.EntireRow.Hidden = False Then If RaZelle.Value "" Then RaZelle.Offset(0, -2) = "OK" RaZelle.Offset(0, -2).Font.Color = vbBlue Else RaZelle.Offset(0, -2) = "" End If End If End With Next RaZelle End If Application.ScreenUpdating = True DIESE DREI ZEILEN MÜSSEN ÜBER DAS ENDIF!!!!! Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Hallo Holger,
meistens passiert dies wenn Worksheet_Change-Ereignismakros ausgeführt werden und in diesen Makros Anweisungen enthalten sind, die den Kopiermodus aufheben.
Dem kann man gegensteuern, wenn der Kopierstatus geprüft wird und die Zellselektion gespeichert wird. Dann kann man bei Bedarf den Kopiermodus einschliesslich der zugehörigen Zellen wieder aktivieren.
Nachfolgend ein Beispiel.
Gruß
Franz

Option Explicit
Private rSelektion As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StatusCopy As Boolean
If rSelektion Is Nothing Then Set rSelektion = Selection
If Application.CutCopyMode = xlCopy Then
StatusCopy = True
End If
Application.EnableEvents = False
' Hier der auszuführende bisherige Code - Beispiel
Dim Zelle As Range
If Target.Column = 1 And Target.Columns.Count = 1 Then
Target.AutoFill Range(Target.Offset(0, 0), Target.Offset(0, 2))
End If
'Kopierten Bereich reaktivieren
If StatusCopy = True Then
rSelektion.Copy
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode  xlCopy Then Set rSelektion = Selection
End Sub

Beliebteste Forumthreads (12 Monate)

Excel: Zwischenablage ist gleich wieder weg

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel: Zwischenablage ist gleich wieder weg

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread