Office: (Office 2013) VBA-Wenn Bedingung erfüllt dann bestimmte Zellen in anderes Excel Dokument kopieren

Hey Leute,

bin erst seit gestern am VBA-Programmieren und bin mit meinem Projekt schon gut voran gekommen. Aber nun hänge ich irgendwie. Da mir das Forum gestern schon mega weitergeholfen hat, kommt jetzt meine spezielle Frage.

Wenn in Datei (Excel1), in Spalte F, ein x steht. Dann soll er mir die Spalten, Q,R,S und U aus Datei Excel1, in Datei Excel2, ab Zeile neun, kopieren.

Jede Datei besitzt nur ein Tabellenblatt (Tabellenblatt1).

Von Tabellenblatt zu Tabellenblatt funktioniert es, aber von Datei zu Datei bin ich echt überfragt.

Hoffe mir kann einer helfen.

:)

 

Hallo,

zeige uns deinen Code, den du bisher für zwei Tabellenblätter benutzt, dann kan man ihn für zwei Dateien anpassen.
Und: ist Datei2 bereits offen, wenn der Code ausgeführt wird, oder muss diese erst geöffnet werden?

VG
Santa

 

Sub Copy()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 1
For i = 1 To 10000
With Worksheets("Tabelle1")
If .Cells(i, "F") = "x" Then
Worksheets("Tabelle2").Cells(a, 1).Value = Worksheets("Tabelle1").Cells(i, 10).Value
Worksheets("Tabelle2").Cells(a, 2).Value = Worksheets("Tabelle1").Cells(i, 13).Value
Worksheets("Tabelle2").Cells(a, 3).Value = Worksheets("Tabelle1").Cells(i, 14).Value
Worksheets("Tabelle2").Cells(a, 4).Value = Worksheets("Tabelle1").Cells(i, 15).Value
a = a + 1

Else
End If
End With
Next i
Application.ScreenUpdating = True
End Sub

Wow, ne schnelle Antwort. 1000 dank für die Hilfe.^^

 

Hallo,

ich habe folgenden Vorschlag:
Der Code geht davon aus, dass die zweite Datei bereits geöffnet ist
Code:

Bitte versuche jede einzelne Zeile nachzuvollziehen und zu verstehen, Fragen dazu kannst du gerne hier stellen.

VG
Santa

 

Sehr geil. Da funtz mehr als gut.^^ 1000 Dank. Wie mache ich das jetzt am dümmsten, wenn er in Excel1 erst ab Zeile F11 suchen soll?

 

Hallo,

mit dieser Schleife wird Datei 1 durchlaufen:
Der blaue Teil bestimmt dabei den Anfang und das Ende.
Code:

Kannst du mit diesen Angaben die Anpassung vornehmen?
Fragen gerne.

VG
Santa

 

Alles geklappt. Geil danke dir.