Von |
Nick |
Am |
28. Juli 2008 um 23:47:31 |
Frage |
hallo ich hab ein folgendes Problem. Ich bin absoluter Excel-Amateur - Deswegen probier ich hier mal die Sache zu schildern: Ich habe 2 Excel-Dateien. Die erste Datei ist ein Template. Die zweite Datei ist eine Datenbank mit Namen. Mein Ziel ist es nun immer einen Namen (--> immer 2 Zellen, also im Beispiel Ai und Bi) an eine feste Stelle im Template zu kopieren. Daraufhin sollte die Datei gespeichert werden und mit dem nächsten Namen weitermachen.
Ich hab jetzt mal ganz diletantisch folgenden Quellcode zusammengestellt, dass ihr euch vielleicht besser vorstellen könnt, was ich brauch:
<<<<<<<
Dim i As Integer Dim wsn, wst As Worksheet
Private Sub CommandButton1_Click()
For i = 1 To 10
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Christoph\Desktop\studium\Siemens\flo\Name.xlsx" Set wsn = Worksheets("Namen") wsn.Range("A" & i).Copy wsn.Range("B" & i).Copy
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Christoph\Desktop\studium\Siemens\flo\Template.xls" Set wst = Worksheets("Template") wst.Paste Destination:=wst.Range("A2") wst.Paste Destination:=wst.Range("B2")
ActiveWorkbook.SaveAs Filename:= _ "C:\Dokumente und Einstellungen\Christoph\Desktop\studium\Siemens\flo\A B.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False
Next i
End Sub
<<<<<<<
Also die Namen sind in der Datenbank (Vorname in Spalte A und Nachname in Spalte B) gespeichert. Diese möchte ich nun an die feste Position A2 bzw. B2 in mein Template kopieren und daraufhin unter dem Namen der jeweiligen Person (deswegen Speichername "A B") abspeichern.
So von der Art sollte das Programm funktionieren. Ich hoffe, die Problematik ist ausreichend erklärt und dass ihr mir damit weiterhelfen könnt.
Gruß Nick |
|