|
Hallo zusammen,
Ich wende mich heute wieder mal an euch! ich bin mir sicher ,ihr könnt mir helfen, da ich selber keine Ahnung habe,leider.
Und zwar möchte ich mittels Schaltfläche aus der Datei aus D:\Allgemeines\Fertigungsauftrag.xlsx, die darin enthaltene Tabelle "Liste"
in meine derzeit geöffnete Datei " Name variiert!" einfügen :-)
um dann den nachfolgenden Code ausführen zu können
bzw würde die Tabellenübernahme in dieses Makro einbinden,
Das heißt zuerst die Tabellenübernahme in die jetzige Exceldatei, um den weiteren Code ausführen zu können:
Sub AGGFertigungsauftrag()
' Datenübernahme1 Makro
' Tastenkombination: Strg+y
' Übernahme von Labelanzahl nach Liste
' Sheets("Plasser").Select
' Range("A2:A2000").Select
' Selection.Copy
' Sheets("Liste").Select
' Range("A2:A2000").Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
' Übernahme von Hose Part nach Liste
Sheets("Plasser").Select
Range("C2:C2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("C2:C2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Offset Angle nach Liste
Sheets("Plasser").Select
Range("G2:G2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("H2:H2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Hose Cut Length nach Liste
Sheets("Plasser").Select
Range("D2:D2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("D2:D2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Overall Lengh nach Liste
Sheets("Plasser").Select
Range("F2:F2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("E2:E2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Fitting 1 Part nach Liste
Sheets("Plasser").Select
Range("H2:H2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("F2:F2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Fitting 2 Part nach Liste
Sheets("Plasser").Select
Range("J2:J2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("G2:G2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme von Customer Part nach Liste
Sheets("Plasser").Select
Range("P2:P2000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("B2:B2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Alle Rahmenlinien in Liste
ActiveWindow.SmallScroll Down:=1980
Range("A1:H2000").Select
Range("H2000").Activate
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
' Übernahme der VIN in Kopfzeile
With ActiveSheet.PageSetup
.CenterHeader = "&""-,Fett""&19 &KFF0000" & Sheets("Plasser").Range("Y2").Value
End With
Range("B2").Select
' Druck Liste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
|