AW: Variable übernehmen
06.05.2011 13:27:14
Frank
Vielen Dank Michael,
aber so richtig geht das nicht ich bekomme sofort die Meldung: Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft. Es geht darum das ich ausgewählte Datenblätter drucken möchte und zuvor die Anzahl der Exemplare abfragen will:
Public Sub CommandButton1_Click()
Call Anzahl(i)
Application.ScreenUpdating = False
Sheets(Array("Ausrichtung Dach", "Wirtschaftlichkeit", "Anschreiben Angebot", "LV-Angebot", " _
Bestellung für den Kunden")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Worksheets(1).Select
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
Sub Anzahl()
Dim i As Integer
UserForm1.Show
End Sub
Und das steht unter der UserForm1:
Private Sub OK_Click()
i = TextBox1.Text
Unload Me
End Sub
Private Sub ABBRECHEN_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And TextBox1.Text "" Then
MsgBox "Bitte geben Sie ein Zahl ein!"
UserForm1.TextBox1.Text = 1
End If
End Sub
Aber so richtig geht das wie gesagt nicht. Kann mir bitte jemadn helfen nd auch wie ich das mache, dass wenn ich Abbrechen drücke nichts gedruckt wird?
Vielen Dank und viele Grüße
Frank