Re: Hallo Peter
18.10.2002 20:43:26
Pius
Hallo Peter
Aufgrund deiner letzten Antwort habe ich nach einigem grübeln rausgefunden warum ich immer eine Fehlermeldung bekam.
In der Zeile "Cells..." wurde eine dritte Arbeitsmappe angesprochen. In der nachfolgenden Version habe ich diese ersetzt und siehe da es funktioniert.Was mich nun noch wunder nähme ist, wie es möglich ist die "Liste1Pius" nach einer bestimmten Nummer abzusuchen und mit der zu vergleichen die gespeichert werden soll(IF THEN ELSE oder so)um doppeleinträge zu verhindern.
Falls Du mir Deine E-Mail Adresse mitteilst werde ich Dir selbstverständlich die ganze Arbeitsmappe (180kb) MailenGruss Pius
Sub Speichern()
Dim a
Dim letzte
Dim b
a = Range("F4").Value
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\Bosshard\" & a & ".xls"
b = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\Eigene Dateien\Bosshard\Test1Pius.xls"
letzte = [a65536].End(xlUp).Row + 1
Cells(letzte, 1) = Workbooks(b).Sheets(1).Cells(4, 2)
Cells(letzte, 2) = Workbooks(b).Sheets(1).Cells(5, 2)
Cells(letzte, 3) = Workbooks(b).Sheets(1).Cells(6, 2)
Cells(letzte, 4) = Workbooks(b).Sheets(1).Cells(7, 2)
Cells(letzte, 5) = Workbooks(b).Sheets(1).Cells(4, 6)
Cells(letzte, 6) = Workbooks(b).Sheets(1).Cells(5, 6)
Cells(letzte, 7) = Workbooks(b).Sheets(1).Cells(6, 6)
Cells(letzte, 8) = Workbooks(b).Sheets(1).Cells(7, 6)
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub