Hallo Gemeinde, Folgenden VBA Code habe ich mit null Erfahrung mir zusammen Gebastelt.

Ich möchte im Bereich B:70 bis B110 nach einem Namen Suchen und diesen Enfternen. Dieses Funktioniert auch bis jetzt super, jedoch klappt folgendes nicht.

Sollte ein Name nicht Vorhanden sein, möchte ich eine Meldung dazu bekommen das dieser Name nicht Existiert und das er nicht eine Neue Zeile einfügt.

 

Für jede Hilfe wäre ich sehr Dankbar.

 

Beste Grüße

 

 

 

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect 5698
Dim Antwort As VbMsgBoxResult
Dim Meldung As String

Meldung = "Mitarbeiter sicher Entfernen?"
Antwort = MsgBox(Meldung, vbYesNo + vbQuestion, "Das Knabe&Gavric-Tutorial")

If Antwort = vbNo Then
    MsgBox "Mitarbeiter wurde nicht Entfernt"
    End
   
Else
    MsgBox "Mitarbeiter wurde Entfernt"
   

   
End If
  Dim wks As Worksheet, Wert, Zelle As Range, Nach As Range
    Set wks = ActiveSheet
    Wert = Me.TextBox1.Value
    With wks.Range("B70:B110")
    Set Zelle = .Find(what:=Wert, LookIn:=xlValues, lookat:=xlWhole)
    Do Until Zelle Is Nothing
      Set Nach = Zelle.Offset(1, 0)
      Zelle.EntireRow.Delete
      Set Zelle = .FindNext(After:=Nach)
    Loop
   
   
          Rows("118:118").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireRow.Hidden = True

    End With
 
Unload L?schen
ActiveSheet.Protect 5698
Application.ScreenUpdating = True
End Sub