Supportnet / Forum / Tabellenkalkulation

Hallo, ich bin ein Einsteiger und versuche mich mit VBA durchzukämpfen. Vieleicht kann mir jemand helfen: 1. zwei Dateien (quelldatei und enddatei) 2. In Enddatei wird eine Nr. (Schlussel) eingegeben. 3. In Quelldatei gibt es zu dieser Nr. (immer erte Spalte und die Nummer wiederholt sich) mehrere Datensätze (mehrere Spalten) 4. Die Daten, die zu dieser Nummer gehören sollen in die Enddatei mit gelicher Struktur rein kopiert werden. Ich habe schon die Vorstellung wie es etwa gehen soll. Habe zwei For-Schleifen gemacht und eine If-Bedingung. Aber wie sage ich ihm dass die Schleifen unterschiedlichen Dateien gehören? Und mit welcher Code wird es rein kopiert? Für jede Hilfe wäre sehr dankbar.

Hallo Ina33,

Dein VBA-Code wäre hier hilfreich gewesen.

Dateien sprichst Du mit

Workbook("Der Exceldateiname.xls")

an. Der Befehl zum Daten kopieren lautet dann z.B. so:

Workbook("Quelldatei.xls").Sheets("Tabelle aus der kopiert werden soll").Rows(i).Copy _
Sheets("Tabellenblattname nach dem kopiert werden soll").Cells(erste_leere_Zeile, 1)

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo coros,

danke für deine schnelle Anwort.

Viel Ahnung habe ich nicht. So etwa müsste es gehen:

Sub Datenübertragung()

For i = 9 To 40
For k = 2 To 40
If e1 = nk Then
(kopieren daten von einer datei in die andere)

End If
Next k
Next i

End Sub

• Makroinhalte kopieren
• maximum von datenbank wenn bedingung erfüllt
• Datenbank in Excel
• Schleife-Neue Datei aus Excel Datenbank
• *Datenbank*