code funzt nicht
06.01.2006 17:05:50
Bernd
mit möchte folgendes realisieren:
wenn im bereich nicht der eingegeben name gefunden wird soll die msgbox aufgehen " keine übersinstimmung".
der code funzt aber nur wenn der eingegebene name gefunden wird.
bei nicht übereinstimmung hakt der code in der zeile:
Selection.Find(What:=Suchen).Activate
Private Sub CommandButton2_Click()
Dim Suchen As String
If TextBox1 = "" Then
MsgBox "Keinen Namen eingetragen.", vbOKOnly + vbInformation, "Namen eintragen."
TextBox1.SetFocus
Exit Sub
Else
Suchen = TextBox1
Sheets("teilzeit").Activate
Range("A1:A100").Select
Selection.Find(What:=Suchen).Activate
If ActiveCell = Suchen Then
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
Range("a1").Select
Else
Range("A1").Select
MsgBox "Keine Übereinstimmung"
Exit Sub
End If
End If
MsgBox "User " & TextBox1 & " wurde gelöscht.", vbOKOnly + vbInformation, "User löschen"
Unload Me
End Sub
könnt ihr mir da bitte weiter helfen.
vielen dank
gruss aus dem schönen Hamburg
Bernd
Rückmeldung wäre nett
Anzeige