Trasnlation Problem from CD

[Guest]

I bought the Holy 16k macros! CD and have a translation problem perhaps somewhere there can help me with:

 'Place the code below into the worksheet module
Private Sub cmdAusschalten_Click()
Dim cm As CodeModule
  Set cm = ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
  With cm
    .DeleteLines .ProcStartLine("Worksheet_Change", vbext_pk_Proc), .ProcCountLines("Worksheet_Change", vbext_pk_Proc)
  End With
  Me.cmdAusschalten.Enabled = False
  Me.cmdEinschalten.Enabled = True
End Sub

Private Sub cmdEinschalten_Click()
   Dim strCode As String
   strCode = vbLf
   strCode = strCode & "Private Sub Worksheet_Change"
   strCode = strCode & "(ByVal Target As Range)" & vbLf
   strCode = strCode & "   Target.Offset(2, 0).Select" & vbLf
   strCode = strCode & "End Sub"
   With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
      .AddFromString strCode
   End With
  Me.cmdAusschalten.Enabled = True
  Me.cmdEinschalten.Enabled = False
End Sub

What is "auschalten" and "einchalten" and what is their US excel equivalent? I figured out that "tabelle1" would be sheet1. Might be easy, but would not be the first dumb question I have asked.

 

[Juan Pablo González]

Looking at the code, I'd say that 'cmdAusschalten' is a button to delete the Worksheet_Change event, and that 'cmdEinschalten' is a button to add it.

You also need to change the 'Tabelle1' reference to sheet that you want to add the code to...