|
Hey Ralf,
Ja da habe ich mich wohl nicht ganz deutlich ausgedrückt sorry. Ja ich habe eine intelligente Tabelle und eine Eingabemaske. über die Eingabemaske sollen Werte eingegeben werden wie z.B Werkzeuglänge oder Durchmesser. Durch den Suchbefehl sollen dann nur noch die mit den Suchbegriffen überinstimenden Zeilen angezeigt werden und der Rest der Tabelle soll dann ausgeblendet sein. Soviel zur Funktion ich hoffe das ist verständlich. Bisher habe ich nur zum in das ganze reinzukommen folgendes Makro programmiert:
Sub Suchbefehl()
'Variablen benennen
Dim Suchbegriff As String
Dim Suchbereich As Range
Dim Werkzeugname As Object
'Variablen Werte zuweisen
Suchbegriff = Worksheets("Eingabeformular").Range("H14")
Set Suchbereich = Worksheets("Datenbank").Range("C12", Range("C12").End(xlDown))
Set Werkzeugname = Suchbereich.Find(What:=Suchbegriff, MatchCase:=False, LookAt:=xlWhole)
MsgBox Werkzeugname.Value
Dies nimmt den Wert, welcher in der Eingabemaske ist, gleicht es mit der dazugehörigen Spalte der Tabelle ab und gibt den Wert über eine MsBox aus.
Klar, ist das noch lange nicht das was ich später mal haben möchte aber irgendwie muss man ja anfangen und sich reinarbeiten :)
Ich hoffe das war deutlich genug :)
|