Private DB As Database
Private Rs As Recordset
Private Const WMAP As String = "Name_der_Arbeitsmappe"
Private Const WSHEET As String = "Name_der_Tabelle"<br>
<br>
??? - Richtig verstanden! Wir gehen mit Excel so um, als sei es eine Datenbank!
<pre><code>Private Sub ClearAll()
  Dim Target As Control
  Dim f As Integer
  For Each Target In Form1.Controls
     f = InStr(Target.Name,"txt")
     If f > 0 Then Target.Text=""
  Next
End Sub
 
Private Sub Form_Activate()
   LadeAlles
End Sub

Private Sub dftxtcdname_Click()
   Dim nr As Long
    nr = dftxtcdname.ListIndex
    dftxtCDnr.ListIndex = nr
    dftxtKategorie.ListIndex = nr
End Sub
 
Private Sub dftxtCDnr_Click()
    Dim nr As Long
    nr = dftxtCDnr.ListIndex
    dftxtcdname.ListIndex = nr
    dftxtKategorie.ListIndex = nr
End Sub
 
Private Sub dftxtKategorie_Click()
    Dim nr As Long
    nr = dftxtKategorie.ListIndex
    dftxtcdname.ListIndex = nr
    dftxtCDnr.ListIndex = nr
End Sub

Private Sub cmdSearchStart_Click()
   Dim SQL As String, a As String
   Dim lkBool As Boolean
   Dim nrs As Recordset
   Dim i As Long
   Dim janein As Variant
 
   If txtsearch.Text = "" Then
      MsgBox "Sie haben keinen Suchbegriff eingegeben.", vbInformation, "Suche" & _
        "Stopp"
      txtsearch.SetFocus
      Exit Sub
   End If
 
   'Wurde eine Zahl angegeben,wird nach CD NR gesucht.
   'Wurde Text eingegeben, so wird nach CD Name gesucht.
   If IsNumeric(txtsearch.Text) Then
      SQL = "[CD Nr] = " & txtsearch.Text
   Else
      lkBool = False
      If InStr(txtsearch.Text, "*") <> 0 Then lkBool = True
      If InStr(txtsearch.Text, "?") <> 0 Then lkBool = True
      If lkBool Then
         a = " Like "
      Else
         a = " = "
      End If
      SQL = "[CD Name]" + a + "'" + txtsearch.Text + "'"
   End If
 
   'Excel-Arbeitsmappe als ISAM-Datenquelle öffnen
    Set db = DBEngine.OpenDatabase(WMap, False, False, "Excel 8.0;")
 
    'Exceltabellen enthalten immer ein $-Zeichen
    ExlTab = WSHEET + "$"
 
    Set rs = db.OpenRecordset(ExlTab, dbOpenDynaset)
 
    If Not rs.EOF Then
       rs.Filter = SQL
       Set nrs = rs.OpenRecordset(dbOpenDynaset)
       If Not nrs.EOF Then
          With nrs
            .MoveLast
            .MoveFirst
            janein = MsgBox("Es wurden " + Trim(Str(.RecordCount)) + _
                          "Datensätze gefunden. Sollen die Datensätze geladen" & _
                          "werden?", _
                          vbQuestion + vbYesNo, "Suchergebnis:")
             If janein = vbNo Then
                db.Close
                Exit Sub
             End If
             dftxtCDnr.Clear
             dftxtcdname.Clear
             dftxtKategorie.Clear
             ClearAll
             For i = 0 To .RecordCount - 1
                dftxtCDnr.AddItem nrs.Fields(0).Value
                dftxtcdname.AddItem nrs.Fields(1).Value
                dftxtKategorie.AddItem nrs.Fields(2).Value
             Next
          End With
       End If
    End If
End Sub

Private Sub Ladealles()
   Dim ExlTab As String
    Dim DS As Long, i As Long
 
    'Excel-Arbeitsmappe als ISAM-Datenquelle öffnen
    Set DB = DBEngine.OpenDatabase(WMap, False, False, "Excel 8.0;")
 
    'Exceltabellen enthalten immer ein $-Zeichen
    ExlTab = WSHEET + "$"
 
    Set Rs = DB.OpenRecordSet(ExlTab, dbOpenDynaset)
 
    'Inhalt der Tabelle in die ComboBoxen laden:<br>
    If Not Rs.EOF Then
       Rs.MoveLast
       Ds = Rs.Recordcount
       Rs.MoveFirst
    End If
    For i = 0 To Ds - 1
        dftxtCDNr.AddItem Rs.Fields(0)
        dftxtKategorie.AddItem Rs.Fields(1)
        dftxtCDName.AddItem Rs.Fields(2)
        Rs.MoveNext
    Next
End Sub