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
|