Fehler im VBA Code
14.04.2006 06:54:20
Josef
Mit nachfolgendem Makro soll folgender Vorgang durchgeführt werden:
1.)Ist die TextBox2 befüllt und TB3,TB4,TB5 und TB6 leer, dann aktivere das Blatt "Form 909" und bilde eine Gruppe mit dem zweiten Blatt "Form 909a".
2.)Trage die Werte aus den TextBoxen 1, 2 und 3 in die Zellen A21, AE13 sowie AD39 ein.
In der Zelle AD49 steht die Formel =SUMME(AD39:AJ48). Wenn ich jetzt einen Betrag über die TextBox2 in die Zelle AE13 eintragen lasse, so wird die Berechnung nicht in der Zelle AD49 durchgeführt.
Weiters werden die Werte auf Grund der gebildetern Gruppe nicht in das zweite Arbeitsblatt("Form 909a") in den gleichen Zellen eingetragen.
Wenn ich den CommandButton1 drücke so sollte der Ausdruck der Blätter richtig erfolgen. Ausgedruckt würde ja richtig werden nur ist
1.) im zweiten Arbeitsblatt kein Eintrag und
2.) werden die Formeln nicht gerechnet.
Das ganz wird über eine Userform durchgeführt.
Was mache ich hier bitte falsch?
Private Sub CommandButton1_Click()
If TextBox2.Text = TextBox2 And TextBox3.Text = "" And TextBox4.Text = "" _
And TextBox5.Text = "" And TextBox6 = "" Then
Sheets("Form 909").Select
Sheets(Array("Form 909", "Form 909a")).Select
Sheets("Form 909").Activate
Cells(21, 1) = TextBox1
Cells(13, 31) = TextBox2
Cells(39, 30) = TextBox7
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Form 909a").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Danke
Josef