Find Methode ?
05.02.2006 16:50:08
Stahl
Private Sub btnSuche_Click()
Worksheets("Tabelle2").Activate
Set frm = dlgSuche
With frm
Worksheets("Tabelle2").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.cbChemikalie.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.cbChemikalie.Value = ActiveCell.Value
.tbRSatz.Value = ActiveCell.Offset(0, 1).Value
.tbSSatz.Value = ActiveCell.Offset(0, 2).Value
.tbGefahrensymbol.Value = ActiveCell.Offset(0, 3).Value
.tbUNNummer.Value = ActiveCell.Offset(0, 4).Value
.tbCASNummer.Value = ActiveCell.Offset(0, 5).Value
Exit Sub
fehler:
MsgBox "Die Chemikalie : " & _
.cbChemikalie.Value & " konnte nicht gefunden werden!"
End With
cbChemikalie.SetFocus
End Sub
Ich möchte nun aber das man auf die Datenbank sprich Tabelle2 nicht zugreifen kann, also das sie Unsichtbar ist. Wenn ich das einstelle funktioniert die Suche nicht mehr. Dann wollte ich es mit der Find Methode machen und bin soweit gekommen, aber es geht nicht, wo liegt der Fehler?
Option Explicit
Private Sub btnSuche_Click()
Dim zelle As Range
With dlgSuche
Set zelle = Worksheets("Tabelle2").Range("A:A").Find(What:=.cbChemikalie.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
.cbChemikalie.Value = zelle.Value
.tbRSatz.Value = zelle.Offset(0, 1).Value
.tbSSatz.Value = zelle.Offset(0, 2).Value
.tbGefahrensymbol.Value = zelle.Offset(0, 3).Value
.tbUNNummer.Value = zelle.Offset(0, 4).Value
.tbCASNummer.Value = zelle.Offset(0, 5).Value
Exit Sub
fehler:
MsgBox "Die Chemikalie : " & _
.cbChemikalie.Value & " konnte nicht gefunden werden!"
End With
cbChemikalie.SetFocus
End Sub
Über Hilfe wäre ich sehr dankbar.
MfG
Maik