ich hatte vor einiger Zeit hier im Forum kompetente Hilfe bei einem Makro erhalten. Ich habe dieses Makro am Ende nochmals eingefügt.
Nun ist es leider so, dass dieses Makro nur mit Combo Boxen funktioniert. Man kann in den Zellen den Text auch formatieren. Ich habe in meiner Tabelle das ganze mit Dropdown Feldern gelöst, die ein Formatieren nicht zulassen. Dafür funzt das Makro nicht. Kann mir jemand helfen, das Makro so anzupassen, dass ich es nach meinen Wünschen verwenden kann?
Falls ich mich unklar ausgedrückt habe, habe ich die Datei mal hochgeladen.
Vielen Dank schon mal für Eure Hilfe.
Gruß
Ralf
Excel Datei: https://www.herber.de/bbs/user/5785.xls
Hier nun das Makro:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim c As Range
Dim ZBe As String
If Left(ActiveSheet.Name, 2) <> "GP" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Range("B5:B12"), Target) Is Nothing And _
Intersect(Range("H5:H12"), Target) Is Nothing And _
Intersect(Range("B16:B23"), Target) Is Nothing And _
Intersect(Range("H16:H23"), Target) Is Nothing And _
Intersect(Range("B27:B34"), Target) Is Nothing Then Exit Sub
If Not Intersect(Range("B5:B12"), Target) Is Nothing Then ZBe = "B5:B12"
If Not Intersect(Range("H5:H12"), Target) Is Nothing Then ZBe = "H5:H12"
If Not Intersect(Range("B16:B23"), Target) Is Nothing Then ZBe = "B16:B23"
If Not Intersect(Range("H16:H23"), Target) Is Nothing Then ZBe = "H16:H23"
If Not Intersect(Range("B27:B34"), Target) Is Nothing Then ZBe = "B27:B34"
For Each c In Range(ZBe)
If c.Value = Target.Value And c.Row <> Target.Row Then
Target.Select
MsgBox "Den Eintrag '" & Target.Value & "' gibt es schon !", _
vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Application.EnableEvents = False
ActiveCell.ClearContents
Application.EnableEvents = True
Exit For
End If
Next c
End Sub