ich habe folgendes Problem:
Habe folgendes Makro:
'
' FindIdent: durchsucht Spalte AD nach passender IdentNr
' bei Treffer werden die Werte übertragen
Sub FindIdent(IdentNr As String)
Dim Treffer As Range
Dim Zeile As Long
Columns("AD:AD").Select
Range("AD60").Activate
Selection.Find(What:=IdentNr, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Set Treffer = Application.ActiveCell
If Not Treffer Is Nothing Then
Zeile = Treffer.Row
CopyValues (Zeile)
End If
Range("A1").Select
End Sub
Damit wird in der Spalte AD nach einer IdentNr. gesucht, wurde diese gefunden werden bestimmte Werte in bestimmte Zellen kopiert.
Ich möchte das wie folgt abändern:
Wird keine IdentNr. gefunden, soll in einer Zelle die Meldung Kommen: " Nicht möglich "
Wird eine IndentNr. gefunden soll wie bisher kopiert werden.
Wer kann mir helfen ?
Vielen Dank im voraus
Gruß
John