habe ein kleines Problen:
Ich habe die Userform5 offen, aus der starte ich die Userform7 in der Userform7 starte ich über den Commandbutton 1 den ersten code
dieser wiederun aktiviert den 2 code.
jetz zu meinen Problem wenn der suchbegriff nicht gefunden wurde kommt die meldung (MsgBox "Stamm-Nr. wurde nicht gefunden!") wenn ich dann bestätige macht es mir alle Userforms zu, es sollten aber beite geöfnet bleiben.
wo liegt mein fehler?
für eure hilfe wäre ich sehr dankbar!!!
mfg
erich
(Code1)
Private Sub CommandButton1_Click()
Set frm = UserForm7
With frm
If .OptionButton6.Value = True Then Sheets("A- Schicht").Activate
If .OptionButton7.Value = True Then Sheets("B- Schicht").Activate
If .OptionButton8.Value = True Then Sheets("C- Schicht").Activate
If .OptionButton9.Value = True Then Sheets("D- Schicht").Activate
End With
Application.Run "Mitarbeiter_Loeschen"
End Sub
(2 code)Sub Mitarbeiter_Loeschen()
Dim rngFind As Range
Dim strNumber As String
strNumber = InputBox("Wie lautet die Stamm Nr. des zu löschenden Mitarbeiters?", _
"Löschung von Mitarbeitern")
If strNumber = "" Then Exit Sub
Set rngFind = Columns(4).Find(strNumber, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Stamm-Nr. wurde nicht gefunden!"
End
End If
If MsgBox("Soll dieses Mitarbeiter wirklich gelöscht werden?" & Chr(10) & _
rngFind.Value & Chr(10) & rngFind.Offset(0, -3).Value & Chr(10) & _
rngFind.Offset(0, 4).Value, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Rows(rngFind.Row).Delete
End Sub