ich habe mal wieder ein Problem:
Ich möchte in einer Spalte prüfen, in welchen Zellen ein bestimmter Text enthalten ist. Dazu habe ich schon folgenden Code erhalten, der auch funktioniert:
With Worksheets(WSNAME2).Range(strSuchbereich)
Set Zelle = .Find(Suchtext, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstAdr = Zelle.Address
Do
lEinfuegeZeile = lEinfuegeZeile + 1 ' nächste leere Zeile
Sheets(WSNAME4).Range("A" & lEinfuegeZeile & ":H" & lEinfuegeZeile).Value = _
Sheets(WSNAME2).Range("A" & Zelle.Row & ":H" & Zelle.Row).Value
' Spalten A bis H übertragen
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address firstAdr
End If
end with
Nun habe ich noch folgendes Problem: Es soll nicht zwischen Klein- und Grossschreibung unterschieden werden! Den Suchtext kann ich ja noch ändern mit:
strSuchtext = lcase(strSuchtext)
aber wie mache ich das mit dem Inhalt der Zellen?
m.f.g.
Harald