Hallo,
habe folegndes kleines Makro aufgezeichnet bzw. bisschen erweitert:
und eigentlich keine Ahnung von VBA
aber es funktioniert so wie geplant.über Startbutton
In Modul1
Sub Druck_1()
'
' Druck_1 Makro
'
'
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
WkSh_Q.Range("j3:m3").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("a1:d43").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("p4:p109").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("Q3").Select
End Sub
jetzt soll es automatisch gestartet werden wenn in A1 Start steht ( kommt aus sverweis)
Nach goole - suche dann in Arbeitsmappe nachfolgendes Makro eingefügt ..
Private Sub Workbook_Open()
If Worksheets("Tabelle1").Range("a1") = "Start" Then Druck_1
End Sub
aber geht nicht ??
Kann jemand helfen?
Vielen Dank
Uwe
|