Re: bedingte Suche und kopieren
14.04.2003 22:23:57
tom
ich würde es zunächst mal grundsätzlich anders machen.
die datenseite würde ich zunächst filtern.
erforderlich:
eine userform mit mehreren combo- oder textboxen.
gehen wir davon aus du hast eine userform mit zwei textboxen
und natürlich einer schaltfläche die das ganze dann ins rollen
bringt.
außerdem hier in meinem fall in der tabelle3 in der zelle
a1 die formel =ANZAHL2(Daten1!A:A)(zeigt die anzahl der
einträge in der reihe a nummerisch an)gehen wir weiter davon aus, daß du die zeile a und die zeile
b filtern willst.
der schaltfläche -in der regel CommandButton1- weist du folgendes
makro zu:
A = userform1.textbox1
B = userform1.textbox2
Sheets("Daten1").Select
Set adr = Application.ActiveWorkbook
Set Wieviele = adr.Sheets("Tabelle3")
Namenanzahl = Wieviele.[A1]
Range("A1:Q" & Namenanzahl).Select
Selection.AutoFilter
If A <> "" Then
Selection.AutoFilter Field:=1, Criteria1:=A, Operator:=xlAnd
End If
If B <> "" Then
Selection.AutoFilter Field:=11, Criteria1:=B, Operator:=xlAnd
Selection.AutoFilter Field:=11, Criteria1:="=*" & B, Operator:=xlAnd
Selection.AutoFilter Field:=11, Criteria1:="=*" & B & "*", Operator:=xlAnd
End If
so nun hast du deine daten gefiltert und kannst sie weiter
verarbeiten. beachte die verschiedenen filtermöglichkeiten.
bei A wird tatsächlich nur nach der zeichenfolge gefiltert, die du in die textbox 1 eingetragen hast.
bei B wird zwar auch nach der zeichenfolge gefilter die du in die textbox 2 eingetragen hast, hier kann die zeichenfolge aber
teil eines wortes sein.
versuchs einfach
tom