Formel & Formate übertragen

Forumthread: Formel & Formate übertragen

13.03.2008 15:18:00

Heinz

Hallo Leute
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel & Formate übertragen

14.03.2008 14:38:28

Tino
AW: Formel & Formate übertragen

14.03.2008 15:01:12

Tino
AW: Formel & Formate übertragen

14.03.2008 16:58:33

Heinz

AW: Formel & Formate übertragen

14.03.2008 14:38:28

Tino

Hallo,
ungetestet weil ich die Tabellen nicht nachbauen will, müsste aber funktionieren.


Private Sub CommandButton2_Click()
Dim Datei As Workbook
Dim Tabel As Worksheet
Dim Bereich As String
Set Datei = Workbooks("Meine ExcelDatei.xls") 'Datei wo Daten hin sollen
Set Tabel = Datei.Sheets("Meine Tabelle") 'Tabelle wo Daten hin sollen
Bereich = "G29:G40, I29:I40, K29:K40, M29:M40" 'Bereich der kopiert werden soll
Workbooks(TextBox1.Value & ".xls").Sheets("Vorschlag").Range(Bereich).Copy  'kopiere Bereich
Tabel.Range(Bereich).PasteSpecial 'einfügen
Set Datei = Nothing
Set Tabel = Nothing
End Sub

Gruß
Tino

AW: Formel & Formate übertragen

14.03.2008 15:01:12

Tino

Hallo,
habe es mal getestet, geht so nicht.
So sollte es aber gehen.


Private Sub CommandButton2_Click()
Dim Datei As Workbook
Dim Tabel As Worksheet
Dim Bereich As Range
Dim a As Range
Set Datei = Workbooks("Meine ExcelDatei.xls") 'Datei wo Daten hin sollen
Set Tabel = Datei.Sheets("Meine Tabelle") 'Tabelle wo Daten hin sollen
Set Bereich = Workbooks(TextBox1.Value & ".xls").Sheets("Vorschlag"). _
Range("G29:G40,I29:I40,K29:K40,M29:M40")   'Bereich der kopiert werden soll
For Each a In Bereich.Areas
a.Copy  'kopiere Bereich
Tabel.Range(a.Address).PasteSpecial  'einfügen
Next a
End Sub

Gruß
Tino

AW: Formel & Formate übertragen

14.03.2008 16:58:33

Heinz

Hallo Tino
Echt SUPER !!
Recht herzlichen DANK für Deine Bemühungen !!!
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Formel & Formate übertragen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread