Zellbearbeitung abschalten
13.03.2004 18:04:27
Lorenz
Der folgende Code funktioniert einwandfrei!
Leider bekomme ich nachdem die Auswahl per Doppelclick getätigt wurde, die
direkte Zellbearbeitung nicht weg(Blinkender Curser). Ebenfalls sollte der
"blinkende" auch verschwinden wenn mittels Key "Escape" die Auswahl nicht getroffen wurde.
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim wks As Worksheet
Dim iCol As Integer
Set wks = Worksheets("Zeit")
On Error GoTo Fehler
If Target.Row > 5 And Target.Row <= 89 Then
Select Case Target.Column
Case 3
Sheets("Zeit").Visible = xlHidden
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="StringInsert", _
Position:=msoBarPopup, _
MenuBar:=False, _
temporary:=True)
iCol = 1
Do Until IsEmpty(wks.Cells(5, iCol))
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.Cells(5, iCol).Value
.Style = msoButtonCaption
.OnAction = "GetValue"
End With
iCol = iCol + 1
Loop
CommandBars("StringInsert").ShowPopup
Sheets("Zeit").Visible = xlVeryHidden
End Select
End If
Fehler: Cancel = False
End Sub
Danke im Voraus,
Lorenz