freundlicherweise wurde mir folgender Makro zur Verfügung gestellt, der auch wunderbar funktioniert und mein Problem erst einmal gelöst hat. Er dient dazu immer zusammengehörige zellen hervorzuheben, wenn eine der Zellen markiert wird (hier genutzt zur Kenntlichmachung von Plan- und Ist Zahlen).
Nach einer ersten Korrektur kann ich auch wieder die "Einfügen" (Paste) Funktion nutzen.
Leider funktioniert nun die bedingte Formatierung nicht mehr, bzw. sie wird immer dann gelöscht, wenn eine Zelle markiert wurde.
anbei die Syntax:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strSuch As String, Zelle As Range, Bere As Range
Application.ScreenUpdating = False
If Application.CutCopyMode = False Then
Cells.FormatConditions.Delete
For Each Bere In Selection
strSuch = Cells(Bere.Row, 1)
Set Zelle = Range("A:A").Find(what:=strSuch, after:=Cells(Bere.Row, 1))
If Not Zelle Is Nothing And Zelle.Address Cells(Bere.Row, 1).Address Then
Set Zelle = Cells(Zelle.Row, Bere.Column)
Zelle.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Zelle.FormatConditions(1).Interior.ColorIndex = 37
End If
Next Bere
End If
Application.ScreenUpdating = True
End Sub
Übrigens: wofür steht eigentilich dieses "Bere"? Kann einfach keine Erklärung dafür finden.
Tausend Dank für eure Hilfe