bereich einschränken
07.02.2016 14:52:15
Thomas
ich suche mit dem unten stehende Code den suchwert aus der textbox1.
Ich möchte gern den suchbereich auf die spalten c und h beschränken,
Ich dachte es genügt mit
Set rng = Worksheets("Vorgang").Range("c2:c2000", "h2:h2000")
den bereich einzuschränken. Jedoch sucht er immer noch in anderen bereichen herum.
Kann sich dies jemand anschauen?
liebe grüsse thomas
Private Sub CommandButton1_Click()
Dim xSuche, xAdresse, xErste As String
Dim y As Boolean
Dim arr() As Variant
Dim rng As Range
Dim iCounter, iRowU As Integer
Dim SuchWert As Variant
ListBox1.Clear
If IsDate(TextBox1) Then
SuchWert = CDate(TextBox1) ' suche nach datum
Else
SuchWert = TextBox1 ' oder suche nach text
End If
Set rng = Worksheets("Vorgang").Range("c2:c2000", "h2:h2000").Find(What:=SuchWert, _
LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
With Worksheets("Vorgang")
xErste = rng.Address(False, False)
y = True
Do Until xAdresse = xErste
ReDim Preserve arr(0 To 15, 0 To iRowU)
arr(0, iRowU) = .Name
arr(1, iRowU) = rng.Address(False, False)
arr(2, iRowU) = .Cells(rng.Row, 1)
arr(3, iRowU) = .Cells(rng.Row, 2)
arr(4, iRowU) = .Cells(rng.Row, 3)
arr(5, iRowU) = .Cells(rng.Row, 4)
arr(6, iRowU) = .Cells(rng.Row, 5)
arr(7, iRowU) = .Cells(rng.Row, 6)
arr(8, iRowU) = .Cells(rng.Row, 7)
arr(9, iRowU) = .Cells(rng.Row, 8)
arr(10, iRowU) = .Cells(rng.Row, 9)
arr(11, iRowU) = .Cells(rng.Row, 10)
arr(12, iRowU) = .Cells(rng.Row, 11)
arr(13, iRowU) = .Cells(rng.Row, 12)
arr(14, iRowU) = .Cells(rng.Row, 13)
arr(15, iRowU) = .Cells(rng.Row, 14)
iRowU = iRowU + 1
Set rng = .Cells.FindNext(after:=rng)
xAdresse = rng.Address(False, False)
Loop
xAdresse = ""
xErste = ""
End With
End If
'End If
'Next iCounter
If y = False Then
MsgBox "Der Suchbegriff wurde nicht gefunden!"
Else
ListBox1.Column = arr
End If
End Sub
Anzeige