Hallo zusammen
Ich bin in VBA eher unerfahren und komme bei einem Problem nicht weiter - benutze Office 2016 unter Win10
Ich möchte beim Öffnen der Tabelle aber auch unmittelbar bei der Eingabe en Inhalt der Zelle mit anderen Inhalten der reihe vergleichen und falls es ein Duplikat ist oder gibt alle identischen Zellen farbig hervor heben - leere Zellen sollen nicht berücksichtigt werden und wenn das Duplikat gelöscht ist sollen die farbigen Zellen wieder unformatiert sein.
Nun ich habe mich schon ein bisschen damit auseinandergesetzt und das zusammen gefummelt.
Leider bekomme ich immer eine Fehlermeldung
Kann mir bitte jemand behilflich sein
Vielen dank Peter
Ich bin in VBA eher unerfahren und komme bei einem Problem nicht weiter - benutze Office 2016 unter Win10
Ich möchte beim Öffnen der Tabelle aber auch unmittelbar bei der Eingabe en Inhalt der Zelle mit anderen Inhalten der reihe vergleichen und falls es ein Duplikat ist oder gibt alle identischen Zellen farbig hervor heben - leere Zellen sollen nicht berücksichtigt werden und wenn das Duplikat gelöscht ist sollen die farbigen Zellen wieder unformatiert sein.
Nun ich habe mich schon ein bisschen damit auseinandergesetzt und das zusammen gefummelt.
Code:
Sub DoppelteMarkieren()
Dim lngX As Long
Dim rngAktuellX As Range
Set rngAktuellX = Selection
Range("M10").Resize(lngX).Select 'SELECT der ersten Zelle ist bei Bedingter Formatierung notwendig !
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZÄHLENWENN(M:M;M10)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 45 'Zellenfarbe formatieren
rngAktuellX.Select 'Alte Markierung wieder herstellen
Set rngAktuellX = Nothing
End Sub
Leider bekomme ich immer eine Fehlermeldung
Kann mir bitte jemand behilflich sein
Vielen dank Peter