AW: vba String im batch suchen
23.03.2007 09:14:16
Peter
Hallo Hans,
habe ne Bitte für o.g. Thema:
Hier nochmals Makro:
Sub SuchenMarkieren()
Dim col As New Collection
Dim iRowS As Integer, iRow As Integer, iRowT As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
iRowS = 1
Do Until IsEmpty(col(1).Cells(iRowS, 1))
If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value) Then
iRowT = iRowT + 1
col(2).Range(col(2).Cells(iRowT, 1), col(2).Cells(iRowT, 2)).Value = _
col(1).Range(col(1).Cells(iRowS, 1), col(1).Cells(iRowS, 2)).Value
col(1).Cells(iRowS, 1).Interior.ColorIndex = 6
End If
iRowS = iRowS + 1
Loop
iRow = iRow + 1
Loop
End Sub
Kann man hier was ändern, damit beim Suchen die Gross- und Kleinschreibung ingnoriert wird?
Gruss
Peter