Einfügen funktioniert nach Einbau Makro nicht
15.04.2008 16:46:00
jorgen
freundlicherweise wurde mir folgender Makro zur Verfügung gestellt, der auch wunderbar funktioniert und mein Problem erst einmal gelöst hat.
Leider kann ich in der Datei nun nicht mehr die "Einfügen" (Paste) Funktion nutzen. Kopieren funktioniert weiterhin, leider kann ich aber die Daten dann weder über Strg+V noch über das Menu einfügen.
anbei die Syntax:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strSuch As String, Zelle As Range, Bere As Range
Application.ScreenUpdating = False
Cells.FormatConditions.Delete
If Selection.Count Cells(Target.Row, 1).Address Then
Set Zelle = Cells(Zelle.Row, Target.Column)
Zelle.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Zelle.FormatConditions(1).Interior.ColorIndex = 37
End If
Else
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
vielen Dank
Joerg