Bed. Formatierung durch Ausführen Makro gelöscht

Liebe Excel Kollegen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Debug.Print Merken If Target.Address = "$B$12:$C$12" Then Range("B6:C6").Interior.ColorIndex = 3 ElseIf Merken = "$B$12:$C$12" Then Range("B6:C6").Interior.ColorIndex = 19 End If Merken = Target.Address End Sub

Danke schonmal für den Vorschlag ... hmm ... wenn ich es richtig verstehe, ist die Flexibilität das, was es so komplex macht, oder? ... also ich bräuchte wie von dir beschrieben, eine Funktion, die immer die Zellen hevorhebt, die denen zugeordnet sind, die grade markiert werden (z.b. durch Einfärben). In meinem Falll also Plan- zu Ist-Zahlen und umgekehrt.
Sobald andere Zellen markiert werden, soll die Zelle wieder in ihre Ursprungsformatierung zurückversetzt werden.
Die Zuordnung der richtigen Zellen hat in meinem Beispiel über die Bezeichung (oder eine ID) in der ersten Spalte funktioniert, die beim Plan und Ist Wert gleich ist. Eigentlich eine ganz kluge Idee, wie ich meine.
Problem: zusätzlich haben die Zellen eine Standardformatierung (Grautöne) und eine Bedingte Formatierung, die (auch ohne Markierung) anzeigt, ob der Ist-Wert über dem Planwert liegt (Grüne Schrift) oder darunter (Rote Schrift).
Diese Formatierung wird immer gelöscht, wenn die Zelle unter Einfluss des Makros markiert wird.
1000 Dank für Input
Liebe Grüße
Joerg

Public FormatAlt As String Public AdresseAlt As String 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 On Error Resume Next Range(AdresseAlt).Interior.ColorIndex = FormatAlt On Error GoTo 0 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) FormatAlt = Zelle.Interior.ColorIndex AdresseAlt = Zelle.Address Zelle.Interior.ColorIndex = 37 End If Next Bere End If Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Bed. Formatierung durch Ausführen Makro gelöscht

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bed. Formatierung durch Ausführen Makro gelöscht

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread