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! :)
|