MsgBox nur einmalig aktivieren
16.04.2019 08:51:41
Marcus
beim öffnen erscheinen verschiedene MsgBoxen, welche nach der Entscheidung beim nächsten öffnen dem User nicht noch mal erscheinen sollen. Beim öffnen erscheint die Frage Deutsch oder Englisch? beim aktivieren werden die Texte umgewandelt. Beim nächsten öffnen kann es passieren das die ausgefüllten Werte wieder verschwinden, wenn die falsche Sprache ausgewählt wird, da das Formular wieder auf seinen Ursprung springt.
Danach erscheint eine MsgBox (UmtK) wo aus einer Liste verschiedene Tabellenblätter ausgewählt werden kann. Wenn ich die gespeicherte Datei wieder öffne muss dies nicht noch mal erscheinen.
Wie packe ich so was in die VBA-Code?
Herzlichen Dank vorab für die Unterstützung.
MfG
Marcus
Beispiele:
1.
Private Sub CommandButton1_Click()
If MsgBox("Sind Kriterien für Utilities mit technischem Klärungsbedarf (UmtK) zu berü _
cksichtigen?", vbYesNo + vbQuestion) = vbNo Then
GoTo Zeile1
Else
Call KritUmtK.Show
Sheets("Allgem Analyse").Activate
End If
2.
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect Password:="123"
Range("B2").Value = "Cost Benefit Analysis (Stand February 2019)"
Range("B5").Value = "Supply Measure:"
Range("B6").Value = "Project:"
Range("B7").Value = "Comments:"
Range("B9").Value = "Quantifier monetary & nonmonetary criteria"
Range("B12").Value = "Imputed Interest Rate"
ActiveSheet.Protect Password:="123"
End
End Sub