AW: daten aus Mappe in 2. Mappe
19.01.2005 14:24:51
christian
Hallo Sepp,
hier nochmal beide codes:
so gehts
dieseArbeitsmappe
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wkb As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
'!!!!!!!!!!!!!!Pfad und Tabellennamen anpassen!!!!!!!!!!!!!!!
Set wkb = Workbooks.Open("Y:\Vereine\Angebote_2005.xls") 'Datenbankdatei
Set wksQ = Sheets("Tabelle4") 'Tabelle von der kopiert wird
Set wksZ = wkb.Sheets("Tabelle1") 'Tabelle in die eingefügt wird
lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
wksZ.Range("A65536").End(xlUp).Row) + 1
wksQ.Range("A2:Z2").Copy 'Bereich der kopiert werden soll! - Anpassen!
wksZ.Cells(lastRow, 1).PasteSpecial xlPasteValues
wkb.Close , True
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub
Tabelle1
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Filename:="Y:\Vereine\Schreiben_2005\" & Range("a2").Value & "_" & _
Range("B2").Value & ".xls"
End Sub
so hab ichs jetzt gemacht
Tabelle1
Option Explicit
Private Sub CommandButton1_Click()
Dim wkb As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:="Y:\Vereine\Schreiben_2005\" & Range("A2").Value & "_" & _
Range("B2").Value & ".xls"
'!!!!!!!!!!!!!!Pfad und Tabellennamen anpassen!!!!!!!!!!!!!!!
Set wkb = Workbooks.Open("Y:\Vereine\Angebote_2005.xls") 'Datenbankdatei
Set wksQ = Worksheets("Tabelle4") 'Tabelle von der kopiert wird
Set wksZ = wkb.Worksheets("Tabelle1") 'Tabelle in die eingefügt wird
lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
wksZ.Range("A65536").End(xlUp).Row) + 1
wksQ.Range("A2:Z2").Copy 'Bereich der kopiert werden soll! - Anpassen!
wksZ.Cells(lastRow, 1).PasteSpecial xlPasteValues
wkb.Close , True
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub
bleibt nach dem öffnen der datei angebote_2005 hängen.
ich kann keinen fehler finden!
danke christian