AW: unload me in Userform
16.09.2018 17:06:06
Uwe
Dachte das wäre unabhängig vom (Rest)Code erklärbar. Hier mal der Code des UF:
Private Sub Add_Product_Click()
Application.ScreenUpdating = False
Sheets("Helpdesk").Visible = True
Sheets("Helpdesk").Select 'Blattschutz _
aufheben
ActiveSheet.Unprotect Password:="papaya"
Dim freie_Zeile As Integer 'Variable _
deklarieren
'erste freie Zeile in Blatt "Helpdesk" ermitteln und in Variable "freie_Zeile" schreiben
freie_Zeile = Sheets("Helpdesk").Range("F65536").End(xlUp).Offset(1, 0).Row
Sheets("Helpdesk").Cells(freie_Zeile, 6) = HK_Number.Text 'schreibt den _
Customer Name in die Tabelle
Sheets("Helpdesk").Cells(freie_Zeile, 7) = HK_Description.Text 'schreibt _
den Customer Name in die Tabelle
Unload Me ' _
schliesst das Userform und aktiviert den Blattschutz
Sheets("Helpdesk").Select
ActiveSheet.Protect Password:="papaya", DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFiltering:=True
Sheets("B&O Issue Log").Select
ActiveWorkbook.Save ' _
speichert die Tabelle
Sheets("Helpdesk").Visible = False
Application.ScreenUpdating = True
End Sub
Private Sub Close_Product_Click()
Unload Me
End Sub
Private Sub HK_Description_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(HK_Description)
Private Sub HK_Number_Exit(ByVal Cancel As MSForms.ReturnBoolean) _
'Wenn Materialnummer leer, dann Artikelbezeichnung auch leer
If Me.HK_Number.Text = "" Then GoTo Weiter
Dim D_HK
Dim f As Range
D_HK = HK_Number.Text 'definiert _
das RMA-Textfeld als Prüfwert
Set f = Sheets("Helpdesk").Columns(6).Find(What:=D_HK, LookAt:=xlWhole) 'SVerweis des Prü _
fwertes auf die Tabelle
If Not f Is Nothing Then
MsgBox "This Item Number already exist." 'Bei _
vorhandenen Suchergebnis erfolgt eine Fehlermeldung
Me.HK_Number = ""
HK_Number.BackColor = RGB(255, 0, 0)
HK_Number.SetFocus
Else:
If Not IsNumeric(HK_Number) Or Len(HK_Number) 7 Then HK_Number.BackColor = RGB(255, 0, 0) _
Else HK_Number.BackColor = RGB(255, 255, 255)
If HK_Number.Text = "" Then
MsgBox "It´s not a valid Item Number!"
HK_Number.SetFocus
End If
End If
Weiter:
If HK_Number.Text = "" Then
HK_Number.BackColor = RGB(255, 0, 0)
MsgBox "Item Number cannot be empty!"
Else: HK_Number.BackColor = RGB(255, 255, 255)
End If
End Sub