AW: Bezeichnugnen von Labels ändern
04.01.2019 16:16:41
Labels
Hallo Hajo
Leider hat es nur dem Anschein nach geklappt. Mein Problem ist, dass ich die Daten mit denen ich die Titel der Labels ändern will, als Variable oder aus einer anderen Userform habe. Die geänderten Titel sollten dann nach dem Speichern und wiederöffnen enthalten sein.
Kannst du mir helfen?
Beispiel auf UFAktionen:
Private Sub UserForm_Activate()
With UFAktionen
.lblItemno.Caption = MDItno
.lblIndexold.Caption = MDIndexold
.lblIndexnew.Caption = MDIndexnew
.lblIQS.Caption = MDIQS
.lblActualStock.Caption = Trim(Str(Stock)) & " " & Einheit
.lblActualMRP.Caption = MRP
.lblActualStockValue = Format(Stockvalue, "0.00")
.lblTotalCost = Kosten
.lblForRework = .lblActualStock
End With
End Sub
Private Sub cmd_SendSCM_Click()
' Check if mandatory fields are filled out
If UFAktionen.txtStockqty.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
If UFAktionen.txtMPR.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
Call WriteSCM
If UFAktionen.txtStockqty.Value = "0" Then
Call MailToEK ' --> Email an Einkauf?
Beispiel UFMasterdata:
Private Sub cmd_SendMasterdata_Click()
' Check if mandatory fields are filled out
If UFMasterdata.txtItemno.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
If UFMasterdata.txtIndexold.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
If UFMasterdata.txtIndexold.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
If UFMasterdata.txtIQS.Value = "" Then
If MsgBox("Please fill out all mandatory fields", vbCritical + vbOKOnly, "Data Check") = _
vbOK Then Exit Sub
End If
Call WriteMD
If UFMasterdata.ObtNO.Value = True Then
Call SaveChangeRequest
Call MailNoAction
Else
UFAktionen.lblItemno.Caption = MDItno
UFAktionen.lblIndexold.Caption = MDIndexold
UFAktionen.lblIndexnew.Caption = MDIndexnew
UFAktionen.lblIQS.Caption = MDIQS
ThisWorkbook.Sheets("Config").Range("L20").Value = "SCM"
Call SaveChangeRequest
Call MailMasterdata
End If
Call UFClearMD
End Sub