Habe folgenden Code der einen Wert in A sucht und dann in die nächste Zelle rechts einen Wert schreibt. Wie kriege Ich es hin das ich eine Meldung kriege wenn der gesuchte Wert nicht vorhanden ist?? Habe es selber bisher nicht hin gekriegt.
Dim Sheet As Worksheet
Dim intLSpalt As Integer
Dim rngFind As Range
Set wks = ActiveSheet
Set rngFind = wks.Range("A1:A4056").Find(What:=txtTeil, lookat:=xlWhole)
If Not rngFind Is Nothing Then
intLSpalt = wks.Cells(rngFind.Row, wks.Columns.Count).End(xlToLeft).Column + 1
wks.Cells(rngFind.Row, intLSpalt) = txtMenge
intLSpalt = wks.Cells(rngFind.Row, wks.Columns.Count).End(xlToLeft).Column + 1
wks.Cells(rngFind.Row, intLSpalt) = txtlistennummer
End If
vielen Dank für die Hilfe Ulf