29. März 2024, 11:23
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0411
  E03: Daten in neues XLS exportieren und neue XLS erstellen
 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
[ VB-/VBA-Forum | Archiv 0411 | Archiv-Übersicht ]
 Antworten
E03: Daten in neues XLS exportieren und neue XLS erstellen - Nick 28. Juli 2008 um 23:47:31
Re: Daten in neues XLS exportieren und neue XLS erstellen - Nick 29. Juli 2008 um 09:57:36
Re: Daten in neues XLS exportieren und neue XLS erstellen - Nick 29. Juli 2008 um 10:44:50

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum