Hallo zusammen,

ich bin noch ziemlicher Anfänger in VBA.

Ich will, das es mir in den Zellen A1 bis D1 nur möglich ist, ein einziges X zu setzen.

Soweit so gut.

Allerdings muss Ich dies bis Zeile 40 jeweils sicherstellen.

Wie wäre es mir also möglich, ohne ständiges wiederholen, diese Abfrage zu stellen?

Derzeit sieht es so aus:

If WorksheetFunction.CountIf(Range("A1:D1"), LCase("X")) > 1 Then
    MsgBox "X kann je Prozess nur einmal eingegeben werden!" & vbNewLine & vbNewLine & "Vorhandenes X zuerst loeschen!", 48, "Hinweis"
    Application.EnableEvents = False
    Application.Undo
    rngTarget.Select
    Application.EnableEvents = True
End If
If WorksheetFunction.CountIf(Range("A2:D2"), LCase("X")) > 1 Then
    MsgBox "X kann je Prozess nur einmal eingegeben werden!" & vbNewLine & vbNewLine & "Vorhandenes X zuerst loeschen!", 48, "Hinweis"
    Application.EnableEvents = False
    Application.Undo
    rngTarget.Select
    Application.EnableEvents = True
End If
.
.
.
If WorksheetFunction.CountIf(Range("A40:D40"), LCase("X")) > 1 Then
    MsgBox "X kann je Prozess nur einmal eingegeben werden!" & vbNewLine & vbNewLine & "Vorhandenes X zuerst loeschen!", 48, "Hinweis"
    Application.EnableEvents = False
    Application.Undo
    rngTarget.Select
    Application.EnableEvents = True
End If

Vielen Dank vorab! :)