In Makro Ereignis kurzzeitig deaktivieren

[kingkong]

Würde gerne wieder mal Eure Hilfe gebrauchen, da ich seid fast einer Woche wirklich nicht weiter komme.

Habe ein Makro von euch angepasst und macht auch das was es soll.

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
 
  If Not Sh.Name = "komplett" Then Exit Sub
  If Application.CutCopyMode = xlCopy Then
    Target.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
    Application.CutCopyMode = True
  Else
    End If
      Select Case Target.Row
      Case 15 To 15, 1 To 1
        Target.Copy
       
      Case Else
    End Select

End Sub

meine Frage nur, ich habe auch ein Makro was die Zeile und Spalte markiert, wegen der Bedingten Formatierung, welches unter 

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.Calculate

End Sub

läuft.

es funktioniert alles bis das nicht kopiert wird.


Und jetzt meine Frage besteht überhaupt die Möglichkeit das zu realisieren, das kopiert wird ?

[Kuwer]

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Application.CutCopyMode = xlCopy Then
    Target.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
    Application.CutCopyMode = True
  End If
  Application.Calculate
  Select Case Target.Row
  Case 15 To 15, 1 To 1
    Target.Copy
  End Select
End Sub

[kingkong]

Ich hatte ein True hinter calculate und da ging dann gar nix mehr.

Deswegen fragte ich.

Wird gleich geändert und probiert, Danke

[kingkong]

könnte man hier noch ausgeblendete Zeilen ignorieren ?

hab es so probiert 

Target(xlCellTypeVisible).Copy

Danke 

[snb]

Hhmm ?

Select Case Target.Row
  Case 15 To 15, 1 To 1
    Target.Copy
  End Select

Code:

Select Case Target.Row
Case 15, 1
  Target.Copy
End Select

   oder

Code:

target.row=1 or target.row=15 then target.copy