Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

hilfe bei der Änderung von VBA code

hilfe bei der Änderung von VBA code
30.07.2005 21:35:59
VBA
Hallo Exelfreunde
Folgender Cod steht in dieser Arbeitsmappe unter BeforeClose
Option Explicit
Const TBL_SOURCE = "Herstelldiff."
Const RNG = "A1:R40"
Const PFAD = "Monat2.xls"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim TBL_TARGET As String
TBL_TARGET = Sheets("Herstelldiff.").[t1]
Dim Wb As Workbook, Ws As Worksheet
ActiveWorkbook.Save
On Error Resume Next
Set Ws = Sheets(TBL_SOURCE): Set Wb = Workbooks.Open(FileName:=PFAD, UpdateLinks:=0)
If Err.Number <> 0 Then Set Ws = Nothing: MsgBox "Datei für Übertrag nicht gefunden! Bitte Meister informieren!", vbCritical: Exit Sub
Ws.Range(RNG).Copy Destination:=Wb.Sheets(TBL_TARGET).Cells(Range(RNG).Row, Range(RNG).Column)
Application.CutCopyMode = False
Wb.Close Savechanges:=True: Set Ws = Nothing: Set Wb = Nothing:
End Sub

Er kopiert die komplette Tabelle in eine neue Datei.
Nun möchte ich, dass nur die Werte eingefügt werden.
Mit dem Rekorder bekomme ich das nicht gebacken.
Vielen Dank im Vorraus
Norbert

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: hilfe bei der Änderung von VBA code
30.07.2005 21:56:36
VBA
Hallo
Ws.Range(RNG).Copy Destination:=Wb.Sheets(TBL_TARGET).Cells(Range(RNG).Row, Range(RNG).Column)
With Wb.Sheets(TBL_Target)
.Cells.Copy
.PasteSpecial Paste:=xlPasteValues
End with

Application.CutCopyMode = False
Ungetestet, sollte aber tun.
Gruss Rainer
AW: hilfe bei der Änderung von VBA code
31.07.2005 01:34:25
VBA
Danke Rainer, dass du mir wiedermal aus der Klemme geholfen hast.
denke der ursprüngliche Code stammt auch von dir. Ist schon etwas her und hat sich gut bewährt. Nur musste ich jetzt die Tabelle umbauen und die kopierten Formeln konnte ich nicht brauchen
nochmals 1000 dank
Norbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige