Clever-Excel-Forum

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 ?

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

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

Deswegen fragte ich.

Wird gleich geändert und probiert, Danke

könnte man hier noch ausgeblendete Zeilen ignorieren ?

hab es so probiert

Target(xlCellTypeVisible).Copy

Danke

Hhmm ?

Zitat: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

kingkong

Kuwer

kingkong

kingkong

snb