wie schaffe ich es, dass der rngBereich im folgenden makro nicht abgefragt wird, sondern dass es immer die spalte B in der tabelle rsn ist, die durchsucht wird.
Sub DoppelSucher()
Dim str1 As String
Dim str2 As String
Dim rngBereich As Range
Dim rngZelle As Range
str1 = InputBox("erster Suchwert", "Erster Suchwert")
str2 = InputBox("zweiter Suchwert", "Zweiter Suchwert")
Set rngBereich = Application.InputBox(Prompt:="Zu durchsuchender Bereich auswählen", Title:="Bereichauswahl", Default:=Range("A1"), Type:=8)
For Each rngZelle In rngBereich
If InStr(1, rngZelle.Value, str1) > 0 And _
InStr(1, rngZelle.Value, str2) > 0 Then
rngZelle.Select
Selection.Copy
Sheets("Suchen").Select
Range("A25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Exit Sub
End If
Next
End Sub
viele grüsse,
andreas