BeforeDoubleClick
23.02.2021 16:32:47
Hannis
ich habe mir folgendes Makro gebastelt.
Wenn ich in der ersten Spalte eine beliebig Zelle doppelt klicke soll diese den String ändern.
Das klappt auch gut nur würde ich es gut finden, wenn der Cursor nicht in die Zelle springen würde.
Gibt es einen Befehl der dies verhindert?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Gruß Hannis
Select Case Target.Column
Case 1
If ActiveCell.Value = "offen" Then
ActiveCell.Value = "do"
Exit Sub
End If
If ActiveCell.Value = "ongoing" Then
ActiveCell.Value = "done"
Exit Sub
End If
If ActiveCell.Value = "do" Then
ActiveCell.Value = "ongoing"
Exit Sub
End If
End Select
End Sub