im Archiv habe ich vor lauter Wald keine Bäume gefunden!
Ich möchte den Zellinhalt aus Sheet "Anschreiben" AD17 in Label2 der Userform darstellen. Ich kriege es einfach nicht hin! Will mir jemand helfen?
Tausend Dank vorab und viele Grüße: 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