| Von |
aktony |
| Am |
26. Oktober 2009 um 14:53:32 |
| Frage |
Ich habe einen Abbruch button der die userform schließen soll ( commandbutton2_Click )
das Problem ist das er mir trotzdem immer in die Zellen Einträge macht.
selbst wenn ich auf X drucke sind die Zellen danach leer.
Es muss so sein das diese Form eben aufgerufen wird wenn eine bestimmte Tabelle geöffnet wird und alle Einträge drin stehen was nur zum Controlling sein soll. Um etwaige Veränderungen im Nachhinein vornehmen zu können.Private Sub CommandButton2_Click()
Unload Projekt_Angaben
'Projekt_Angaben.Hide
End Sub
Private Sub UserForm_Activate()
TextBox1.Text = Sheets(1).Cells(8, 2).Value
TextBox2.Text = Sheets(1).Cells(9, 2).Value
TextBox3.Text = Sheets(1).Cells(10, 2).Value
TextBox4.Text = Sheets(1).Cells(11, 2).Value
TextBox5.Text = Sheets(1).Cells(12, 2).Value
TextBox6.Text = Sheets(1).Cells(13, 2).Value
TextBox7.Text = Sheets(1).Cells(24, 2).Value
TextBox8.Text = Sheets(1).Cells(24, 3).Value
TextBox9.Text = Sheets(1).Cells(14, 2).Value
'TextBox10.Text = Sheets(1).Cells(14, 2).Value
TextBox11.Text = Sheets(1).Cells(19, 2).Value
End Sub
Public Sub CommandButton1_Click()
If TextBox10.Value = "" Or TextBox11.Value = "" Then
MsgBox "Datum und Urlaub muss angegeben werden"
Else
Titel = TextBox1.Value
NachName = TextBox2.Value
Vorname = TextBox3.Value
Institut = TextBox4.Value
Fakultät = TextBox5.Value
ProjektName = TextBox6.Value
GZeitSTD = TextBox7.Value
GZeitMON = TextBox8.Value
ProjektNR = TextBox9.Value
AKDatum = TextBox10.Value
UrlaubA = TextBox11.Value
Unload Projekt_Angaben
End If
End Sub |
|
Zum Seitenanfang