Formel & Formate übertragen
13.03.2008 15:18:00
Heinz
Mit unteren Code in UF öffne ich eine Arbeitsmappe.
Das funkt. einwandfrei.
Nun möchte ich in der UF einen "CommandButton2_Click()" hinzufügen.
Der mir die Formel und Formate vom Sheet "Vorschlag" in die aufgerufene Arbeitsmappe kopiert.
Zwar von G29:G35 - G38:G40, I29:I35 - I38:I40, K29:K35 - K38:K40, M29:M35 - M38:M40
Es geht darum: Es werden neue Berechnungen durchgeführt.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton1_Click()
On Error GoTo errHandler
Workbooks.Open "I:\Vetropack\Womat\PAs - nach SAP-Nummer\" & TextBox1.Value & ".xls"
'Unload Verpackungsplan
Exit Sub
TextBox1 = ""
errHandler:
MsgBox " Die SAP ist nicht vorhanden"
TextBox1 = ""
End Sub