AW: ok, dann ist Hajos Bsp. ja passend ... kwT
03.03.2010 22:32:30
Matthias
Wie gesagt, ich weiß nicht so recht, wie ich Hajos Code in mein bestehendes Makro einfügen soll, daher hier mal der Code...
Sub Kopie_Auftrag()
' Kopie_Auftrag Makro
' Archivierung
Dim lngNext As Long, i As Long, intIndex As Integer, Msg As Integer
Msg = MsgBox("Daten ins Archiv übernehmen?" & Space(16), 36, "Archivierung")
If Msg = 6 Then
With Sheets("Eingabeblatt")
If Application.CountA(.Range("z_1"), .Range("z_2"), .Range("z_3"), .Range("z_4"), _
.Range("z_5"), .Range("z_6"), .Range("z_7"), .Range("z_8"), .Range("z_9"), _
.Range("z_10"), .Range("z_11"), .Range("z_12"), .Range("z_13"), .Range("z_14"), _
.Range("z_15"), .Range("z_16"), .Range("z_17"), .Range("z_18"), .Range("z_19"), _
.Range("z_20"), .Range("z_21"), .Range("z_22"), .Range("z_22"), .Range("z_23"), _
.Range("z_24"), .Range("z_25"), .Range("z_26"), .Range("z_27"), .Range("z_28"), _
.Range("z_29")) = 0 Then Exit Sub
End With
With Sheets("Archiv")
lngNext = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For intIndex = 1 To 29
.Cells(lngNext, intIndex) = Sheets("Eingabeblatt").Range("z_" & intIndex).Value
Next
End With
End If
' Spalten ab K aus "Zeichnungsliste" kopieren und Inhalte/Formate in Vorlage einfügen
Sheets("Zeichnungsliste").Select
Columns("K:AH").Select
Selection.Copy
Workbooks.Add Template:= _
"S:\Dept\A032\032.3\Auftrag\_temporär\Zeichnungsliste HR.xlt"
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
' n.v.-Zeilen löschen
For i = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
If Cells(i, 7) = "n.v." Then Rows(i).Delete
Next i
' Bindestriche und Pünktchen ersetzen durch Rotorbreite, Rotordurchmesser usw.
' ACHTUNG! Vor Sternchen eine Tilde setzen, Pünktchen sind Sonderzeichen ALT+0133
Cells.Replace what:=" -/-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="HR
/
", Replacement:="HR " & Workbooks("ZL_HR.xls").Sheets(" _
Eingabeblatt").Range("Sichtergröße"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="-/
", Replacement:="-/" & Workbooks("ZL_HR.xls").Sheets("Eingabeblatt") _
.Range("Rotordurchmesser"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="
/-", Replacement:=Workbooks("ZL_HR.xls").Sheets("Eingabeblatt").Range( _
"Rotorbreite") & "/-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="PC
/
-
", Replacement:="PC " & Workbooks("ZL_HR.xls").Sheets(" _
Eingabeblatt").Range("Sichtergröße") & "-" & Workbooks("ZL_HR.xls").Sheets("Eingabeblatt").Range("BaugrößeLM"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="PC
/
", Replacement:="PC " & Workbooks("ZL_HR.xls").Sheets(" _
Eingabeblatt").Range("Sichtergröße"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="
.", Replacement:=Workbooks("ZL_HR.xls").Sheets("Eingabeblatt").Range(" _
Zyklongröße"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="BREITESW", Replacement:=Workbooks("ZL_HR.xls").Sheets("Eingabeblatt"). _
Range("BreiteSeitenwände"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="BREITEGS", Replacement:=Workbooks("ZL_HR.xls").Sheets("Eingabeblatt"). _
Range("BreiteGehäusesegmente"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace what:="BGSPANN", Replacement:=Workbooks("ZL_HR.xls").Sheets("Eingabeblatt"). _
Range("BaugrößeSpannschiene"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
' Benutzerdefinierte Ansicht "Maschinenstruktur" aufrufen
ActiveWorkbook.CustomViews("Maschinenstruktur").Show
End Sub