Hallo werte Profis
Habe nochmals eine Frage zu Userform
Die Eingaben in der Userform werden in einer Tabelle gespeichert. Ich habe nun ein Makro welches die Werte in der Tabelle löscht. Wird die Userform nun wieder aufgerufen, werden die Werte immer noch angezeigt. Beim zweiten Aufruf sind die Boxen dann leer.
Wie können die Werte in der Tabelle so gelöscht werden, dass die Userform beim ersten Aufruf leer ist?
Gruss
Maruseru
Beispiel meines Codes
'Daten in Userform anzeigen
Private Sub UserForm_Initialize()
'
'
UserForm1.TextBox1.Value = Worksheets("02_Requester").Range("A4") 'RfC Name
UserForm1.TextBox2.Value = Worksheets("03_Request Class Matrix").Range("D45") 'RfC Class
UserForm1.TextBox3.Value = Worksheets("03_Request Class Matrix").Range("D44") 'RfC Score
UserForm1.TextBox4.Value = Worksheets("03_Request Class Matrix").Range("G4") 'RfC Category
UserForm1.TextBox5.Value = Worksheets("03_Request Class Matrix").Range("B48") 'RfC Priority
'Daten in Tabelle 02 Requester speichern
Private Sub CommandButton1_Click()
'
'Input for Requester Data Name of the fields
'
Sheets("02_Requester").Range("A4").Value = TextBox1.Value 'RfC Name
Sheets("02_Requester").Range("B4").Value = TextBox2.Value 'RfC Class
Sheets("02_Requester").Range("C4").Value = TextBox3.Value 'RfC Score
Sheets("02_Requester").Range("D4").Value = TextBox4.Value 'RfC Category
Sheets("02_Requester").Range("E4").Value = TextBox5.Value 'RfC Priority
' Bereich in Tabelle 02_Requester löschen
Private Sub CommandButton10_Click()
If MsgBox("All entries in the form will be erased", vbYesNo + vbExclamation, "ATTENTION!") vbYes Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Temp\RfC Form.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets("02_Requester").Activate
ActiveSheet.Range("A4").Select
ActiveCell.EntireRow.ClearContents
Worksheets("02_Requester").Visible = False
Sheets("Welcome").Activate
MsgBox "The file has been saved as C:\temp\RfC Form.xls" & vbCrLf & "" & vbCrLf & "Now you can use the form to raise another RfC", vbOKOnly + vbInformation, "INFORMATION"