ich möchte bei Doppelklick in eine Zelle z.B. A1 in
meinem Sheet ein X einfügen.
Gibt es vielleicht eine Möglichkeit mit Worksheet_BeforeDoubelclick ?
Hat jemand eine Idee ?
Gruß Detlef
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim letzteZeile As Integer
If Target.Row > 8 Then
Select Case Target.Column
'Bei einem Doppelklick in die entsprechende Spalte wird ein Buchstabe gesetzt.
'Beim nächsten Doppelklick wird es wieder entfernt.
Case 15 ' (O) Post
gstrStatus = ActiveCell.Value
frmPost.Show
Case 16 '(P)Info = J/N nix
If UCase(Target) = "J" Then
Target = "N"
Else
If UCase(Target) = "N" Then
Target = ""
Else
Target = "J"
End If
End If
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
SendKeys "{UP}"
Case 17, 18, 19, 20, 21, 23, 26, 27, 28, 29, 30, 31, 32, 33 '(Q-U)(W,Z,AF)
If UCase(Target) = "X" Then
Target = ""
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
SendKeys "{UP}"
Else
Target = "X"
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
SendKeys "{UP}"
End If
Case 25 '(Y)
If UCase(Target) = "OK" Then
Target = ""
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
SendKeys "{UP}"
Else
Target = "OK"
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
SendKeys "{UP}"
End If
End Select
End If
End Sub