diff --git basctl/sdi/baside.sdi basctl/sdi/baside.sdi
index 36adfc8..e127b67 100644
--- basctl/sdi/baside.sdi
+++ basctl/sdi/baside.sdi
@@ -57,6 +57,11 @@ shell BasicIDEShell
         StateMethod = GetState;
     ]
 
+    SID_SELECTALL
+    [
+        ExecMethod	= ExecuteCurrent;
+    ]
+
     SID_CUT
     [
         ExecMethod	= ExecuteCurrent;
diff --git basctl/source/basicide/baside2.cxx basctl/source/basicide/baside2.cxx
index 772094d..5cbafc1 100644
--- basctl/source/basicide/baside2.cxx
+++ basctl/source/basicide/baside2.cxx
@@ -999,6 +999,15 @@ void ModulWindow::ExecuteCommand( SfxRequest& rReq )
     sal_uInt16 nSlot = rReq.GetSlot();
     switch ( nSlot )
     {
+        case SID_DELETE:
+        {
+            KeyEvent aFakeDelete( 0, KEY_DELETE );
+            GetEditView()->KeyInput( aFakeDelete );
+            break;
+        }
+        case SID_SELECTALL:
+            GetEditView()->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
+            break;
         case SID_BASICRUN:
         {
             BasicRun();
diff --git basctl/source/basicide/baside2b.cxx basctl/source/basicide/baside2b.cxx
index 6f1f7e3..df99a5b 100644
--- basctl/source/basicide/baside2b.cxx
+++ basctl/source/basicide/baside2b.cxx
@@ -417,9 +417,7 @@ void EditorWindow::KeyInput( const KeyEvent& rKEvt )
 
     if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify()  ) )
     {
-        if ( ( rKEvt.GetKeyCode().GetCode() == KEY_A) && rKEvt.GetKeyCode().IsMod1() && !rKEvt.GetKeyCode().IsMod2() )
-            pEditView->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
-        else if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
+        if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
             bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog
         else
         {