ein makro soll bewirken dass nur bestimmte Positionen einer tabelle gedruckt werden. Welche Pos. das sind steht in textboxen.
dass sieht so aus:
Range("A9").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=TextBox1", Operator:=xlAnd, _
Criteria2:="<=TextBox2"
If TextBox3 = "" Then
A = MsgBox("Bitte wählen Sie die Anzahl der Exemplare!", vbOKOnly, "Bitte Anzahl wählen!") = vbCancel
If A = 6 Then
Range("A1").Select
End If
Else
Range("A9").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(-1, 0).Select
ActiveCell.Columns("A:N").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox3, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End If
Range("A9").Select
Selection.AutoFilter
Allerdings funktioniert der benutzerdefinierte autofilter nicht
er schreibt dann immer Positionen von textbox1 bis textbox2
muss z.b. heißen Pos. 10 bis 20.
Kann mir werd helfen
Gruß
Andi