AW: Zellinhalt in Label2 der Userform zeigen
15.08.2007 18:50:48
Konni
Hallo Hajo,
ich kann VBA leider nur mit Recorder, wo füge ich Deinen Code ein?
Dnank und Gruß: Konni
Private Sub CommandButton1_Click()
If TextBox1 = Sheets("Anschreiben").Range("AH26") Then
If Worksheets("Anschreiben").Range("AJ25") = Worksheets("Anschreiben").Range("AJ26") Then
SaveSetting Worksheets("Anschreiben").Range("AJ25"), "Einstellungen", "ErsterAufruf" _
, Worksheets("Anschreiben").Range("AJ21")
End If
MsgBox "Der eingegebene Code ist richtig!" & vbLf & vbLf & _
"Die Programmlaufzeit wurde um " & Sheets("Anschreiben").Range("AJ23") & " Tage _
verlängert!", 64, " Codeeingabe Verlängerung Programmlaufzeit:"
Unload Me
Else
MsgBox "Sie haben einen falschen Code eingegeben!" & vbLf & vbLf & _
"Versuchen Sie es noch einmal oder setzen Sie sich mit dem Autor in Verbindung!", _
16, " Codeeingabe Verlängerung Programmlaufzeit:"
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = .TextLength
End With
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
blnCancel = True
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Start_Click()
Unload Me
blnCancel = True
End Sub
Private Sub TextBox1_Change()
Sheets("Anschreiben").Range("AH26").Value = TextBox1.Value
End Sub
Private Sub UserForm_Activate()
blnCancel = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then CommandButton2 = True
End Sub