daten übertragen und beim schliesen automatisch sp
20.01.2005 17:53:43
ursula
Ich habe eine Datei(R-Daten) aus der ich in eine 2. Datei(Auswertung) gewiese Zellen (A4:N22)kopiere.
Das alles geschieht im moment beim speichern der Datei!!
Mein Problem:
Es soll automatisch beim schliesen der Datei geschehen,
egal ob speichern oder nichtspeichern!!
Ich hoffe mir kann jemand helfen!!
Hier der Code!!
Habe ich aus dem Forum und nach meinen Bedürfnissen abgeändert!!
Private Sub daten_übertragen()
Dim wkb As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\Rechnung\" & Range("A2").Value & "_" & _
Range("B2").Value & ".xls"
'!!!!!!!!!!!!!!Pfad und Tabellennamen anpassen!!!!!!!!!!!!!!!
Set wkb = Workbooks.Open("C:\Rechnung\Auswertung.xls") 'Datenbankdatei
Set wksQ = ThisWorkbook.Worksheets("R-Daten") 'Tabelle von der kopiert wird
Set wksZ = wkb.Worksheets("Daten") 'Tabelle in die eingefügt wird
lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
wksZ.Range("A65536").End(xlUp).Row) + 1
wksQ.Range("A4:N22").Copy 'Bereich der kopiert werden soll! - Anpassen!
wksZ.Cells(lastRow, 1).PasteSpecial xlPasteValues
wkb.Close savechanges:=True
ERRORHANDLER:
With Application
.CutCopyMode = False
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub