AW: Tabellen Drucken
19.05.2012 20:38:54
Alfonso
Hi Reinhard
Dieser Makro war nur ein versuch den Commantputton 1 zu Programmieren
Für die ander habe ich ein Code der Funktioniert , habe in hier aber nicht eingesetzt
Hier ist der Cote den ich eingetzt habe
Private Sub CommandButton1_Click()
Dim i As String
On Error GoTo Fehler
Columns("A10:AV28").Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
i = "Std. Blatt 1" & Right(ActiveCell.Rows.Address, Len(ActiveCell.Rows.Address) - 3)
Sheets(i).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Fehler: _
End Sub
Private Sub CommandButton2_Click()
Sheets("Std. Blatt 1").PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton3_Click()
Sheets("Std. Blatt 1").PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton4_Click()
Sheets("Std. Blatt 1").PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton5_Click()
Sheets("Std. Blatt 1").PrintOut Copies:=1, Collate:=True
End Sub
Alfonso