In einem definierten Berich nur eine Zelle ausw.

Hallo,
ich möchte, daß der Anwender in einem freigegebenen Bereich (B2:B20) nur eine Zelle mit einem "x" per Doppelklick markieren kann.
Folgenden Code habe ich:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim BER As String
BER = ("B2:B20")
On Error Resume Next
If Not Intersect(Target, Range(BER)) Is Nothing Then
Target = IIf(Target = "x", "", "x")
Cancel = True
End If
End Sub

Aber was muß ich verändern, damit in dem Bereich immer nur ein "x" eingetragen werden kann und wenn z.B. an anderer Stelle ein "x" eingegeben wird muß das vorherige verschwinden.
Danke.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim BER As Range, bolX As Boolean Set BER = Range("B2:B20") If Not Intersect(Target, BER) Is Nothing Then bolX = Target = "x" BER.ClearContents If Not bolX Then Target = "x" Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim BER1 As Range Dim BER2 As Range Dim bolX As Boolean Set BER1 = Range("C8:C55") Set BER2 = Range("F8:F55") If Not Intersect(Target, BER1) Is Nothing Then bolX = Target = "x" BER1.ClearContents If Not bolX Then Target = "x" Cancel = True End If If Not Intersect(Target, BER2) Is Nothing Then bolX = Target = "x" BER2.ClearContents If Not bolX Then Target = "x" Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim BER As Range Dim bolX As Boolean For Each BER In Range("C8:C55,F8:F55").Areas If Not Intersect(Target, BER) Is Nothing Then bolX = Target.Value = "" BER.ClearContents Target.Value = IIf(bolX, "x", "") Cancel = True End If Next End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim Ber As Range Set Ber = Range("B2:B20") On Error Resume Next If Not Intersect(Target, Ber) Is Nothing Then If WorksheetFunction.CountIf(Ber, "x") = 0 Then Target = IIf(Target = "x", "", "x") Else MsgBox "x bereits vorhanden" End If Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim Ber As Range, Anz As Single Set Ber = Range("B2:B20") On Error Resume Next If Not Intersect(Target, Ber) Is Nothing Then Anz = WorksheetFunction.CountIf(Ber, "x") If Anz = 0 Or (Target = "x" And Anz = 1) Then Target = IIf(Target = "x", "", "x") Else MsgBox "anderes x bereits vorhanden" End If Cancel = True End If End Sub

Beliebteste Forumthreads (12 Monate)

In einem definierten Berich nur eine Zelle ausw.

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In einem definierten Berich nur eine Zelle ausw.

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread