Re: Suche bei eingestellten Filtern
18.05.2003 20:01:39
Peter Knierim
Hallo,mit diesem Code wird gesucht und zurückgeschrieben in die Textfelder.
Bei Fehler ist eine Meldungsbox eingebaut. Fehler treten auf wenn der Wert(die ganze Zeile)ausgefiltert ist. In Spalte F steht das Suchkriterium. Da aber in Combobox2 die Eigenschaft RowSource=Auftragsnummer (Name aus Exceltabelle)werden auch die ausgefilterten Werte gezeigt. Kann dann nicht wissen ob gefiltert oder nicht nur an hand der Fehlermeldung.
gruß Peter.
Vielleicht eine Routine einbauen, die alle Filter löscht und dann wieder setzt??
Private Sub CommandButton9_Click()
Set frm = UserForm
With frm
Sheets("Betriebsaufträge").Select
.Textbox7.Enabled = False
.txtLNr.Enabled = False
.ccbOrt.Enabled = False
.ccbVSTKr.Enabled = False
.ccbSystem.Enabled = False
.ccbBeschreibung.Enabled = False
.ccbAufbauleiter.Enabled = False
.ccbPlaner.Enabled = False
Range("F:F").Select
On Error GoTo fehler
Selection.Find(What:=.ComboBox2.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
'Tabelleninhalte in UserForm übertragen
.txtLNr.Value = ActiveCell.Offset(0, -5).Value
.Textbox1.Value = ActiveCell.Offset(0, 8).Value
.Textbox2.Value = ActiveCell.Offset(0, 9).Value
.Textbox3.Value = ActiveCell.Offset(0, 10).Value
.Textbox4.Value = ActiveCell.Offset(0, 11).Value
.Textbox5.Value = ActiveCell.Offset(0, 12).Value
.Textbox6.Value = ActiveCell.Offset(0, 13).Value
.Textbox7.Value = ActiveCell.Offset(0, 7).Value
.ComboBox2.Value = ActiveCell.Offset(0, 0).Value
.ccbOrt.Value = ActiveCell.Offset(0, 1).Value
.ccbVSTKr.Value = ActiveCell.Offset(0, 3).Value
.ccbSystem.Value = ActiveCell.Offset(0, 4).Value
.ccbBeschreibung.Value = ActiveCell.Offset(0, 2).Value
.Textbox9.Value = ActiveCell.Offset(0, 5).Value
.txtFirmenaufmaß.Value = ActiveCell.Offset(0, 20).Value
.txtFirma.Value = ActiveCell.Offset(0, 14).Value
.txtSAPAbruf2.Value = ActiveCell.Offset(0, 15).Value
.txtListesoll.Value = ActiveCell.Offset(0, 16).Value
.txtEingangQNMMNS.Value = ActiveCell.Offset(0, 17).Value
.txtUmschaltungbis.Value = ActiveCell.Offset(0, 18).Value
.txtUmschaltungist.Value = ActiveCell.Offset(0, 19).Value
.ccbAufbauleiter.Value = ActiveCell.Offset(0, 21).Value
.ccbPlaner.Value = ActiveCell.Offset(0, 6).Value
.ComboBox2.SetFocus
ActiveCell.Select
Exit Sub
fehler:
Mldg = "Ein SM Auftrag mit der Nummer : " & .ComboBox2.Value & _
" konnte nicht gefunden werden!"
Stil = vbOKOnly + vbInformation + vbDefaultButton2
Title = "Auftragsverwaltung"
Kontext = 1000
Ergebnis = MsgBox(Mldg, Stil, Title, Help, Kontext)
End With
End Sub