speichern unter
26.05.2005 14:44:45
Philipp
schreibe mit folgendem Code Daten über definierte Zellen in andere Excel Datei.
Welchen Befehl brauche ich um den Dateinamen in den gespeichert werden soll auch über eine Zelle einzugeben?
Code:
Private Sub CommandButton1_Click()
Dim Z As Long
Workbooks.Open Filename:= _
"C:\Documents and Settings\zzphbrau\My Documents\test\Book5.xls"
Windows("Book5.xls").Activate
With Worksheets("Sheet1")
Z = .Range("B6").End(xlDown).Row + 1
If Z > 65000 Then Z = 7
.Cells(Z, 2) = Cells(2, 2)
.Cells(Z, 3) = Cells(2, 5)
.Cells(Z, 4) = Cells(4, 2)
.Cells(Z, 5) = Cells(1, 6)
.Cells(Z, 7) = Cells(10, 6)
.Cells(Z, 6) = Cells(12, 6)
ActiveWorkbook.Save
ActiveWindow.Close
End With
End Sub
Dank euch für euche Hilfe!
Gruss
Philipp