Private Sub SetButtons(bVal As Boolean, cmdEdit(), cmdUebernehmen())
  cmdAdd.Visible = bVal
  SearchCmd.Visible = bVal
  cmdCancel.Visible = Not bVal
  cmdDelete.Visible = bVal
  cmdClose.Visible = bVal
  cmdNext.Enabled = bVal
  cmdFirst.Enabled = bVal
  cmdLast.Enabled = bVal
  cmdPrevious.Enabled = bVal
 
  ' Für Button Bearbeiten
  Dim i As Integer
  For i = LBound(cmdEdit()) To UBound(cmdEdit())
    cmdEdit(i).Visible = False
  Next
 
  ' Für Button Übernehmen
  Dim i As Integer
  For i = LBound(cmdUebernehmen()) To UBound(cmdUebernehmen())
    cmdUebernehmen(i).Visible = False
  Next
End Sub

Fehler beim Kompilieren:
Argument ist nicht optional

Private Sub cmdEdit_Click(Index As Integer)
 
 
    For i = 0 To 5
       text1(i).Enabled = True
    Next
 
    Combo1.Enabled = True
 
    SetButtons False '<-------------------------------------SetButtons wird 
    ' markiert, hier kommt nun die Fehlermeldung
    Combo1.SetFocus
 
End Sub

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.